لاو سين تشانغ تان مساعدة تكنولوجيا المعلومات

أريد اليوم اختبار وظيفة ربط دلفي بـ AD，التدريس عبر الإنترنت，يمكنك استخدام "المكون → مكون الاستيراد"…"للاستيراد，ولكن في التشغيل الفعلي，ظهر “حدث خطأ أثناء الوصول إلى تسجيل دخول OLE。” 的錯誤訊息。

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

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

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

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;

【參考連結】

• طريقة القضية للحكم على السلسلة | ثلاثة كهوف

يبدو أن قوائم دلفي تحتوي دائمًا على خطوط تعود إلى الوضع الافتراضي (8, تاهوما) المشكلة，أسئلة من الخارج，لكن لا يوجد حل。الحل المؤقت الذي يمكنني التفكير فيه في الوقت الحالي هو تعيين مفتاح وظيفي (يمكن تعيينه كمفتاح اختصار)，دع المستخدم يواجه حجم خط صغير，إعادة تعيين حجم الخط بنفسك。(أثناء الاختبار ، يمكن تغيير خط القائمة مرة أخرى إلى القيمة الافتراضية عن طريق تغيير النسبة المئوية لحجم شاشة Windows)

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

【參考連結】

• إعادة رسم قائمة قوة دلفي VCL – تجاوز المكدس
• من حين لآخر: تكبير خط Delphi MainMenu و 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;

【參考連結】

• قبض على مفتاح SHIFT أثناء اختيار عنصر القائمة? – نصائح دلفي – CJC دلفي (بارد نصائح دلفي)
• GetKeyState:GetKeyState ，تسترد هذه الوظيفة المفتاح الظاهري المحدد -موسوعة شبكة المعرفة الصينية
• DELPHI OnKeyDown,OnKeyPress,فرق OnKeyUp-CSDN Blog_delphi onkeydown
• جدول قيمة مفتاح دلفي – قبيلة تايوان
• كيفية اكتشاف الضغط على مفتاح ctrl-t في دلفي – تجاوز المكدس
• جدول مقارنة قيمة رمز لوحة المفاتيح

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

【參考連結】

• كيف تجد دلفي الفرق بين مرتين بالثواني؟-مجتمع CSDN

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

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