delphi-xe2

8熱度

1回答

我在閱讀Hodges的書籍「Delphi中的更多編碼」，工廠模式部分。試圖學習的東西。將我的代碼分解成小單元。我使用ReportMemoryLeaksOnShutDown := True;和休耕代碼導致我內存泄漏。爲什麼會發生，我該如何解決？ unit Unit2; interface uses Generics.Collections, System.SysUtils;

-2熱度

1回答

TFileStream和TMemoryStream打字

爲什麼我不能這樣做？ procedure TForm1.Button1Click(Sender: TObject); var FS: TFileStream; begin FS := TFileStream.Create('file', fmOpenRead + fmShareDenyWrite); try TMemoryStream(FS).SaveT

3熱度

1回答

AnimateWindow與德爾福XE2

您好，我在Delphi XE2 AnimateWindow函數有一個問題，問題是當我使用皮膚提供的XE2在Windows外觀中找到，當使用皮膚任何和AnimateWindow結合時，程序混合正常的窗戶部分與窗戶的窗戶設計，最糟糕的是，窗戶被凍結，不能移動更多。的代碼只有這個： procedure TForm1.FormCreate(Sender: TObject); begin An

2熱度

2回答

如何在TSpeedButton已經關閉的情況下提早退出（）？

我有兩個TSpeedButton：btn1和btn2。它們的屬性被設置爲使得它們在一組共同行動和是互斥的，這意味着，當按下一個按鈕另一個按鈕是自動未按下： AllowAllUp = False GroupIndex = 1 OnClick = onSpeedButtonsClick 我在onSpeedButtonsClick()一些代碼，運行取決於一些代碼哪個按鈕被點擊。我想要做的就是讓

0熱度

1回答

Delphi：模擬從剪貼板拖放到EmbeddedWB的IHTMLElement

我有一個Delphi XE2應用程序，帶有一個TEmbeddedWB，用於模擬用戶操作。應用程序導航到一個URL，用數據填充相關的表單域並提交數據。問題是有一個<input type=file />字段接受上載的文件。在完成了大量關於此事的閱讀之後，我明白有一個安全問題以編程的方式執行此操作，但也發現有人提出了一個建議，即可以將文件從剪貼板'拖動'到'放下'位置。我已經成功地將相關文件（jpeg

3熱度

1回答

德爾福：通過Outlook與多個附件

您好所有專家發送電子郵件， procedure TForm1.domail(Sender: TObject; fromname, fromadd, sub, toadd, thedocdone, theacc: string; body: widestring); const olMailItem = 0; var Outlook: OLEVariant; vma

0熱度

1回答

Eof not triggering

我有一個函數，我從數據庫中獲取數據，我的測試數據集返回6500行（我從SQLText變量中提取格式化的SQL語句並將其作爲測試運行），但是當我運行下面的代碼Eof從不觸發，我已經看到超過10萬行的輸入。 ADOQuery := TADOQuery.Create(nil); ADOQuery.ConnectionString := CONNECT_STRING; // Build SQL Qu

2熱度

1回答

創建泛型類或接口與兒童類自我類型參數

我想創建一個類或接口，我可以繼承，總是利用當前的類實例作爲方法的參數... 下面是一個例子，解釋我的問題： type IArithmeticObject = interface(IInterface) procedure assign(ao : IArithmeticObject); procedure add(ao : IArithmeticObject); pro

0熱度

1回答

Tedit.onkeyup +消息（）或輸入框確認返回鍵無限地再次調用Tedit.onkeyup

有點尷尬，但我無法找出解決這個問題的正確方法。我在窗體上有一個單獨的Tedit類組件，用戶輸入一些命令或參數。當出現錯誤或需要額外輸入時，會顯示一個消息框或輸入框。當用戶使用返回鍵確認消息框 - vk_return時，再次調用onkeyup，無限次，除非用戶使用鼠標確認消息。爲了解決這個問題，我通常在顯示消息之前暫時將焦點改變到另一個組件。有人能解釋我爲什麼會發生這種情況我該如何避免這種

4熱度

1回答

如何擺脫`繼續`困惑的編譯器警告？

編譯器顯示我下面的代碼如下警告： Warning: W1036 Variable 'Address' might not have been initialized 的代碼（MVCE片段基於真正的代碼）： function DoFoo(): Integer; var i: Integer; Address, Bar: Cardinal; begin for i