لاو سين تشانغ تان مساعدة تكنولوجيا المعلومات

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;

【參考連結】

• طريقة القضية للحكم على السلسلة | ثلاثة كهوف

يبدو أن قوائم دلفي تحتوي دائمًا على خطوط تعود إلى الوضع الافتراضي (8, تاهوما) المشكلة，أسئلة من الخارج，لكن لا يوجد حل。الحل المؤقت الذي يمكنني التفكير فيه في الوقت الحالي هو تعيين مفتاح وظيفي (يمكن تعيينه كمفتاح اختصار)，دع المستخدم يواجه حجم خط صغير，إعادة تعيين حجم الخط بنفسك。(أثناء الاختبار ، يمكن تغيير خط القائمة مرة أخرى إلى القيمة الافتراضية عن طريق تغيير النسبة المئوية لحجم شاشة Windows)

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

【參考連結】

• إعادة رسم قائمة قوة دلفي VCL – تجاوز المكدس
• من حين لآخر: تكبير خط Delphi MainMenu و Menu Checked رمز موجه مفقود الحل

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

【參考連結】

• قبض على مفتاح SHIFT أثناء اختيار عنصر القائمة? – نصائح دلفي – CJC دلفي (بارد نصائح دلفي)
• GetKeyState:GetKeyState ，تسترد هذه الوظيفة المفتاح الظاهري المحدد -موسوعة شبكة المعرفة الصينية
• DELPHI OnKeyDown,OnKeyPress,فرق OnKeyUp-CSDN Blog_delphi onkeydown
• جدول قيمة مفتاح دلفي – قبيلة تايوان
• كيفية اكتشاف الضغط على مفتاح ctrl-t في دلفي – تجاوز المكدس
• جدول مقارنة قيمة رمز لوحة المفاتيح

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

【參考連結】

• كيف تجد دلفي الفرق بين مرتين بالثواني؟-مجتمع CSDN