Lao Sen Chang Tan IT-Hilfe

Schnell melden 1920*1080 Auflösung plus 125% Wenn die oben genannte Anzeigeeinstellungsumgebung vorliegt，Der Anteil von „Vorschaudruck“ ist falsch.(zu groß oder zu klein)，Aber der tatsächliche Druck ist normal.，Wenn Sie korrigieren möchten，Es ist notwendig, die Datei qrprntr.pas von Quick Report in der Kompilierungsumgebung zu ändern，Es gibt zwei Möglichkeiten, dies zu korrigieren。

Weiter durchsuchen »

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]

• case-Methode zur Beurteilung von Zeichenfolgen | drei Höhlen

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]

• Delphi VCL erzwingt Menüneuaufbau – Paketüberfluss
• abundzu: Delphi-MainMenu-Schriftvergrößerung und fehlende Lösung für das Prompt-Symbol „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;

Referenz [link]

• Fangen Sie die SHIFT-Taste während der Auswahl der Menüpunkte? – Delphi-Tipps – CJC Delphi (Coole Delphi-Tipps)
• GetKeyState:GetKeyState ，Diese Funktion ruft den angegebenen virtuellen Schlüssel ab -Enzyklopädie Knowledge Chinese Network
• DELPHI OnKeyDown,OnKeyPress,OnKeyUp-Unterschied-CSDN Blog_delphi onkeydown
• Delphi-Schlüsselwerttabelle – Stamm aus Taiwan
• So erkennen Sie Strg-T-Tastendruck in Delphi – Paketüberfluss
• Vergleichstabelle für Tastaturtastencodewerte

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

Referenz [link]

• Wie findet Delphi den Unterschied zwischen zwei Zeiten in Sekunden?-CSDN-Community

Zwei Wochen vor dem Unternehmensnetzwerk-Architektur größeren Renovierungen，Busy Bee，Wenn Sie IP-Druckserver ändern，Es gibt zwei sehr krumm Maschine，Lassen Sie mich zunächst beginnen Wechsel，Später, nach der Änderung zum Besseren，Werden Sie eine lange Zeit der Inaktivität，Er wird zu brechen，Versuchte einen Tag，Schließlich Aufgeben，Ich schnappte mir ein kleines Programm，Legen Sie es auf den Server und lassen Sie das Programm den Druckserver alle 30 Sekunden pingen。

Weiter durchsuchen »