יולי 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

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

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;

【參考連結】

מאי 9

כתבתי בעבר "הגש בקשה לקבלת אישור תו קידוד של תצפית ב- Windows」,מאמר זה הוא בעיקר דרך “קבל HTTPS בחינם!” האתר מבקש או מרחיב את התעודה באופן ידני。כאשר לאחרונה הושק אתר חדש,נסה ליישם עם הכלי WIN-ACME,כדי להקל על השימוש בהרחבה האוטומטית שלו מאוחר יותר (הִתחַדְשׁוּת) מאפיינים。
להמשיך לגלוש »

אפריל 20

נראה שג'ומלה מתחילה מ-2.X ו-3.X,כתובת האימייל במאמר תומר אוטומטית לפורמט היפר-קישור。שימוש בתחביר Javascript עבור כתובת הדוא"ל של דף היום,תוצאות בקליק,יופיעו שני חלונות Outlook,אז אתה צריך לכבות את פונקציית ההמרה המובנית。
להמשיך לגלוש »

אפריל 15

ייעוץ סביבתי:זיכרון מארח WSUS מומלץ להיות מעל 8G。

Q. WSUS זורק לעתים קרובות או תמיד שגיאת חיבור,צריך לאפס את צומת השרת。
A1. נסה את זה קודם,שים את WsusPool(IIS) הסר את "מגבלת הזיכרון המיוחדת"。
איפוס WSUS צמתים בשרת | טוסון צ'אנג טאן הישן

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

ים 11

用 ג'ומלה 4 בנה אתר חדש,לאחר הפעלת SEO וכתובת URL Rewrite,בעיה באתר,בהתחלה גוגל למאמר משלה - "לשכתוב כתובות Joomla 404 לא ניתן להציג」,בעיקר בגלל שה-AllowOverride של httpd.conf אינו מוגדר ל-All。אבל אחרי הזמן הזה,卻變成 403 אסור,וכל הדפים לא יכולים להיכנס,ללא קשר אם כתובת האתר של הדף משמשת לשכתוב,נחקר במשך שעות,סוף סוף מצא את הסיבה。
להמשיך לגלוש »

דצמבר 29

   עמיתים דיווחו כי בתבנית התאריך של Excel של המחשב החדש חסר השדה "סוג לוח שנה",לכן, אי אפשר לבחור את הפורמט של "לוח השנה של הרפובליקה של סין"。上網查詢後,כמה מאמרים אומרים שאתה יכול להוריד את קובץ המונית של חבילת Microsoft-windows-internationalfeatures-taiwan-package להתקנה,אבל אחרי שבאמת הורדתי והתקנתי,קוד שגיאה של 0x800f0818 יופיע,נראה שהגרסה לא תואמת。

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

נובמבר 17

在 ג'ומלה 4 על סביבת המבחן,בעת התקנת שפות,השגיאה הבאה תופיע:

שגיאה בחיבור לשרת: 303

כתובת אתר לא חוקית
לא ניתן למצוא את חבילת ההתקנה.

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