לאוסן צ'אנג טאן עזרה IT

דיווח מהיר פנימה 1920*1080 רזולוציה פלוס 125% כאשר סביבת הגדרות התצוגה לעיל היא，הפרופורציה של "הדפסה מקדימה" תהיה שגויה.(גדול מדי או קטן מדי)，אבל ההדפסה בפועל היא נורמלית.，אם אתה רוצה לתקן，יש צורך לשנות את הקובץ qrprntr.pas של דוח מהיר בסביבת הקומפילציה，יש שתי דרכים לתקן את זה。

להמשיך לגלוש »

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;

【參考連結】

• שיטת מקרה לשפוט מחרוזת | שלוש מערות

נראה שתפריטי Delphi תמיד כוללים גופנים שחוזרים לברירת המחדל (8, טהומה) הבעיה，שאלות מחו"ל，אבל אין פתרון。הפתרון הזמני שאני יכול לחשוב עליו כרגע הוא להגדיר מפתח פונקציה (ניתן להגדיר כמקש קיצור)，אפשר למשתמש להיתקל בגודל גופן קטן，אפס את גודל הגופן בעצמך。(במהלך הבדיקה, ניתן לשנות את גופן התפריט בחזרה לערך ברירת המחדל על ידי שינוי אחוז גודל התצוגה של Windows)

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

【參考連結】

• צביעה מחדש של תפריט דלפי VCL – הצפת מחסנית
• מדי פעם: הגדלה של גופן MainMenu של Delphi וסמל הבקשה בתפריט מסומן חסר פתרון

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

　　前兩週公司網路架構大翻修，忙到不可開交，在修改print server的IP時，有兩顆很機歪，一開始先是不讓我改，後來改好後，變成只要閒置一段時間，他就會斷線，試了一整天，最後放棄，就抓了個小程式，放在Server讓程式每隔30秒就對print server來ping一下。

להמשיך לגלוש »