Lao Sen Chang Tan Aide informatique

Aujourd'hui, je veux tester la fonction de connexion de Delphi à AD，Enseigner sur Internet，Vous pouvez utiliser "Composant → Importer un composant"…" pour importer，Mais en fonctionnement réel，mais il “Une erreur s'est produite lors de l'accès à la connexion OLE。” Message d'erreur。

Continuez à parcourir »

Rapport rapide dans 1920*1080 résolution plus 125% Lorsque l'environnement de réglage de l'affichage ci-dessus est，La proportion de « Aperçu avant impression » sera incorrecte.(trop grand ou trop petit)，Mais l'impression réelle est normale.，Si vous voulez corriger，Il est nécessaire de modifier le fichier qrprntr.pas de Quick Report dans l'environnement de compilation，Il y a deux façons de le corriger。

Continuez à parcourir »

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;

Référence [lien]

• méthode de cas pour juger la chaîne | trois grottes

Les menus Delphi semblent toujours avoir des polices qui reviennent par défaut (8, Tahoma) Le problème，Questions de l'étranger，mais pas de soluce。La solution temporaire à laquelle je peux penser pour le moment est de définir une touche de fonction (Peut être défini comme raccourci clavier)，Permettre à l'utilisateur de rencontrer une petite taille de police，Réinitialiser la taille de la police par vous-même。(Pendant les tests, la police du menu peut être ramenée à la valeur par défaut en modifiant le pourcentage de taille d'affichage de Windows)

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

Référence [lien]

• Repeindre le menu forcé de Delphi VCL – Stack Overflow
• de temps à autre: Agrandissement de la police du menu principal de Delphi et solution manquante pour l'icône d'invite du menu vérifié

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

Référence [lien]

• Attraper la touche SHIFT pendant la sélection de l'élément de menu? – Astuces Delphi – CJC Delphes (Conseils sympas de Delphi)
• GetKeyState:GetKeyState ，Cette fonction récupère la clé virtuelle spécifiée -Encyclopédie Connaissance Réseau chinois
• DELPHES OnKeyDown,OnKeyPress,Différence OnKeyUp-Blog CSDN_delphi onkeydown
• tableau des valeurs de clé delphi – Tribu de Taïwan
• Comment détecter la touche ctrl-t dans Delphi – Stack Overflow
• Tableau de comparaison des valeurs de code des touches du clavier

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

Référence [lien]

• Comment Delphi trouve-t-il la différence entre deux temps en secondes ?-Communauté RPSC

Deux semaines avant l'architecture de réseau de l'entreprise de rénovations majeures，Abeille，Lorsque vous modifiez IP de serveur d'impression，Il ya deux très tordu la machine，D'abord, permettez-moi de commencer le changement，Plus tard, après avoir changé pour le mieux，Devenir une longue période d'inactivité，Il va briser，J'ai essayé un jour，Enfin abandonner，J'ai attrapé un petit programme，Mettez-le sur le serveur et laissez le programme envoyer un ping au serveur d'impression toutes les 30 secondes。

Continuez à parcourir »