Lao Sen Chang Tan Bantuan IT

Hari ini saya ingin menguji fungsi menghubungkan Delphi ke AD，Mengajar di Internet，Anda dapat menggunakan "Komponen → Impor Komponen"…” untuk mengimpor，Namun dalam operasi sebenarnya，卻出現 “Terjadi kesalahan saat mengakses login OLE。” 的錯誤訊息。

Melanjutkan browsing »

Laporan Cepat masuk 1920*1080 resolusi ditambah 125% Ketika lingkungan pengaturan tampilan di atas adalah，Proporsi "Pratinjau Cetak" akan salah.(terlalu besar atau terlalu kecil)，Tapi pencetakan sebenarnya normal.，Jika Anda ingin memperbaiki，File qrprntr.pas dari Quick Report perlu diubah di lingkungan kompilasi，Ada dua cara untuk memperbaikinya。

Melanjutkan browsing »

unit unit1;

interface

uses
  Windows, Messages....

type
  TFormName = (Casefm1, Casefm2, Casefm3);

function xxx(): Boolean;
var
  StrFormName: String;
  CaseFormName: TFormName;
begin
  StrFormName := 'Case' + vFormName; 
  // 將 FormName(物件) 與 TFormName(值) 做區隔。
  // (vFormName為帶有各FormName的字串變數)
  CaseFormName := TFormName(GetEnumValue(TypeInfo(TFormName), StrFormName));

  case CaseFormName of
    Casefm1:
      begin
        ..............
      end;

    Casefm2:
      begin
        ..............
      end;

    Casefm3: 
      begin
       ...............
      end;

[Tautan referensi]

• metode kasus untuk menilai string | tiga gua

Menu Delphi sepertinya selalu memiliki font yang kembali ke default (8, Tahoma) Masalah，Pertanyaan dari luar negeri，tapi tidak ada solusi。Solusi sementara yang dapat saya pikirkan saat ini adalah mengatur tombol fungsi (Dapat diatur sebagai hotkey)，Biarkan pengguna menemukan ukuran font kecil，Atur ulang ukuran font sendiri。(Selama pengujian, font menu dapat diubah kembali ke nilai default dengan mengubah persentase ukuran tampilan Windows)

procedure Tmainform.N93Click(Sender: TObject);
begin
  Screen.MenuFont.Size := 12;
  xxxxxx.BringToFront; // 改變畫面焦點，以刷新選單畫面。
end;

[Tautan referensi]

• Delphi VCL force menu repaint – Stack Overflow
• sekali-sekali: Pembesaran font Delphi MainMenu dan Menu Memeriksa ikon prompt hilang solusi

procedure TfmQAB.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
if (Msg.CharCode = 116)  and (HiWord(GetKeyState(VK_CONTROL)) = 1)  then 
  begin
    ......
  end
end;

[Tautan referensi]

• Tangkap tombol SHIFT selama pemilihan item menu? – Tips Delphi – CJC Delphi (Tips Delphi yang Keren)
• DapatkanKeyState:DapatkanKeyState ，Fungsi ini mengambil kunci virtual yang ditentukan -Ensiklopedia Pengetahuan Jaringan Cina
• DELPHI OnKeyDown,PadaKeyPress,Perbedaan OnKeyUp-CSDN Blog_delphi onkeydown
• tabel nilai kunci delphi – Suku Taiwan
• Cara mendeteksi penekanan tombol ctrl-t di Delphi – Stack Overflow
• Tabel perbandingan nilai kode kunci keyboard

var
  vTime, vTime1, vTime2: double;
begin
  vTime1 := GetTickCount();
  vTime2 := GetTickCount();
  vTime := (vTime2 - vTime1) / 1000;
  Showmessage(floatToStr(vTime) + 's');
end;

[Tautan referensi]

• Bagaimana delphi menemukan perbedaan antara dua kali dalam hitungan detik?-komunitas CSDN

Dua minggu sebelum renovasi besar arsitektur jaringan perusahaan，Lebah Sibuk，Ketika Anda mengubah IP server cetak，Ada dua sangat mesin bengkok，Pertama izinkan saya memulai perubahan，Kemudian, setelah berubah menjadi lebih baik，Menjadi lama tidak aktif，Dia akan mematahkan，Mencoba hari，Akhirnya menyerah，Aku meraih sebuah program kecil，放在Server讓程式每隔30秒就對print server來ping一下。

Melanjutkan browsing »