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]