नव 12

आज मैं डेल्फ़ी को AD से जोड़ने के फ़ंक्शन का परीक्षण करना चाहता हूँ，इंटरनेट पर पढ़ाना，आप "घटक → आयात घटक" का उपयोग कर सकते हैं…" आयात करना，लेकिन वास्तविक ऑपरेशन में，卻出現 “OLE लॉगिन तक पहुँचते समय एक त्रुटि उत्पन्न हुई。” 的錯誤訊息。

ब्राउज़ करने के लिए जारी »

फ़र. 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, ताहोमा) समस्या，विदेश से प्रश्न，लेकिन कोई समाधान नहीं。इस समय मैं जिस अस्थायी समाधान के बारे में सोच सकता हूं, वह है फंक्शन की सेट करना (हॉटकी के रूप में सेट किया जा सकता है)，उपयोगकर्ता को छोटे फ़ॉन्ट आकार का सामना करने दें，अपने आप से फ़ॉन्ट आकार रीसेट करें。(परीक्षण के दौरान, विंडोज़ डिस्प्ले आकार प्रतिशत को बदलकर मेनू फ़ॉन्ट को डिफ़ॉल्ट मान में वापस बदला जा सकता है)

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

दो हफ्ते कंपनी के नेटवर्क वास्तुकला प्रमुख मरम्मत से पहले，व्यस्त मधुमक्खी，आप प्रिंट सर्वर का आईपी संशोधित जब，दो बहुत मशीन टेढ़े हैं，पहले मुझे परिवर्तन शुरू करते हैं，बाद में, बेहतर के लिए बदलने के बाद，निष्क्रियता की एक लंबी अवधि बनें，वह तोड़ दूँगा，एक दिन की कोशिश की，अंत में छोड़ दे，मैं एक छोटे से कार्यक्रम को पकड़ा，放在Server讓程式每隔30秒就對print server來ping一下。

ब्राउज़ करने के लिए जारी »