Februari 19

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 »

Juli 11
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]

Juli 11

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]

Juli 11
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]

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

[Tautan referensi]

November 23

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 »