فبراير 19

تقرير سريع في 1920*1080 القرار زائد 125% عندما تكون بيئة إعداد العرض أعلاه,ستكون نسبة "معاينة الطباعة" غير صحيحة.(كبيرة جدًا أو صغيرة جدًا),لكن الطباعة الفعلية طبيعية.,إذا كنت تريد تصحيح,من الضروري تعديل ملف qrprntr.pas الخاص بالتقرير السريع في بيئة الترجمة,هناك طريقتان لتصحيح ذلك。

مواصلة التصفح »

يوليو 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

يبدو أن قوائم دلفي تحتوي دائمًا على خطوط تعود إلى الوضع الافتراضي (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;

【參考連結】

نوفمبر 23

قبل أسبوعين من تجديدات العمارة شبكة الشركة,النحل مشغول,عند تعديل IP ملقم الطباعة,هناك نوعان من آلة ملتوية جدا,أولا اسمحوا لي أن أبدأ التغيير,في وقت لاحق، بعد تغيير للأفضل,تصبح فترة طويلة من الخمول,وقال انه سوف يكسر,حاول كل يوم,أخيرا التخلي عن,أمسكت برنامج صغير,放在Server讓程式每隔30秒就對print server來ping一下

مواصلة التصفح »