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;

Referenz [link]

Juli 11

Delphi-Menüs scheinen immer Schriftarten zu haben, die auf die Standardeinstellung zurückgehen (8, Tahoma) Das Problem,Anfragen aus dem Ausland,aber keine lösung。Die vorübergehende Lösung, die mir im Moment einfällt, ist das Setzen einer Funktionstaste (Kann als Hotkey gesetzt werden),Lassen Sie den Benutzer auf eine kleine Schriftgröße stoßen,Schriftgröße selbst zurücksetzen。(Während des Tests kann die Menüschriftart auf den Standardwert zurückgesetzt werden, indem der Prozentsatz der Windows-Anzeigegröße geändert wird)

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

Referenz [link]

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;

Referenz [link]

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

Referenz [link]

November 23

Zwei Wochen vor dem Unternehmensnetzwerk-Architektur größeren Renovierungen,Busy Bee,Wenn Sie IP-Druckserver ändern,Es gibt zwei sehr krumm Maschine,Lassen Sie mich zunächst beginnen Wechsel,Später, nach der Änderung zum Besseren,Werden Sie eine lange Zeit der Inaktivität,Er wird zu brechen,Versuchte einen Tag,Schließlich Aufgeben,Ich schnappte mir ein kleines Programm,放在Server讓程式每隔30秒就對print server來ping一下

Weiter durchsuchen »