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]

Mai 9

Ich habe zuvor ein "Beantragen Sie das Wildcard-Zertifikat "Let's Encrypt" unter Windows",Dieser Artikel ist hauptsächlich durch “Holen Sie sich HTTPS kostenlos!” Die Website beantragt oder verlängert das Zertifikat manuell。Als kürzlich eine neue Website gestartet wurde,Versuchen Sie, sich mit dem WIN-ACME-Tool zu bewerben,um die spätere Verwendung der automatischen Verlängerung zu erleichtern (Erneuerung) Eigenschaften。
Weiter durchsuchen »

April 20

Joomla scheint ab 2.X und 3.X zu starten,Die E-Mail-Adresse im Artikel wird automatisch in ein Hyperlink-Format umgewandelt。Verwendung von Javascript-Syntax für die E-Mail-Adresse einer Seite heute,führt zu einem Klick,Zwei Outlook-Fenster werden angezeigt,Sie müssen also die eingebaute Konvertierungsfunktion ausschalten。
Weiter durchsuchen »

April 15

Umweltberatung:Es wird empfohlen, dass der WSUS-Hostspeicher über 8 GB liegt。

Q. WSUS gibt oft oder immer einen Verbindungsfehler aus,Serverknoten muss zurückgesetzt werden。
A1. Versuchen Sie dies zuerst,Setzen Sie WsusPool(IIS) Entfernen Sie das "spezielle Speicherlimit"。
Zurücksetzen Server-Knoten WSUS | Alt Sen Chang Tan

Weiter durchsuchen »

MEER 11

Mit Joomla 4 Erstellen Sie eine neue Website,Nach dem Aktivieren von SEO und URL Rewrite,Problem mit Webseite,Zuerst Google zu einem eigenen Artikel - "Joomla URL Rewrite 404 Kann nicht angezeigt werden",Hauptsächlich, weil AllowOverride von httpd.conf nicht auf All gesetzt ist。Aber nach dieser Zeit,卻變成 403 Verboten,Und alle Seiten können nicht eintreten,Unabhängig davon, ob die Seiten-URL zum Umschreiben verwendet wird,stundenlang recherchiert,Endlich den Grund gefunden。
Weiter durchsuchen »

Dezember 29

   Kollegen haben berichtet, dass im Excel-Datumsformat des neuen Computers das Feld "Kalendertyp" fehlt,Daher ist es unmöglich, das Format des "Kalenders der Republik China" auszuwählen.。上網查詢後,In einigen Artikeln heißt es, dass Sie die CAB-Datei des Microsoft-Windows-internationalfeatures-taiwan-Pakets herunterladen können, um sie zu installieren,Aber nachdem ich tatsächlich heruntergeladen und installiert habe,Ein Fehlercode von 0x800f0818 wird angezeigt,Die Version scheint nicht zu passen。

Weiter durchsuchen »

November 17

Joomla 4 Auf der Testumgebung,Beim Installieren von Sprachen,Der folgende Fehler wird angezeigt:

Fehler beim Verbinden mit dem Server: 303

ungültige URL
Installationspaket kann nicht gefunden werden.

Weiter durchsuchen »