जुला. 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;

संदर्भ [कड़ी]

जुला. 11

ऐसा लगता है कि डेल्फी मेनू में हमेशा फोंट होते हैं जो डिफ़ॉल्ट रूप से वापस जाते हैं (8, ताहोमा) समस्या,विदेश से प्रश्न,लेकिन कोई समाधान नहीं。इस समय मैं जिस अस्थायी समाधान के बारे में सोच सकता हूं, वह है फंक्शन की सेट करना (हॉटकी के रूप में सेट किया जा सकता है),उपयोगकर्ता को छोटे फ़ॉन्ट आकार का सामना करने दें,अपने आप से फ़ॉन्ट आकार रीसेट करें。(परीक्षण के दौरान, विंडोज़ डिस्प्ले आकार प्रतिशत को बदलकर मेनू फ़ॉन्ट को डिफ़ॉल्ट मान में वापस बदला जा सकता है)

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

संदर्भ [कड़ी]

जुला. 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;

संदर्भ [कड़ी]

जुला. 11
var
  vTime, vTime1, vTime2: double;
begin
  vTime1 := GetTickCount();
  vTime2 := GetTickCount();
  vTime := (vTime2 - vTime1) / 1000;
  Showmessage(floatToStr(vTime) + 's');
end;

संदर्भ [कड़ी]