Février 19

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 »

Juillet 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;

Référence [lien]

Juillet 11

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]

Juillet 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;

Référence [lien]

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

Référence [lien]

Novembre 23

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 »