其他

0000–0FFF1000–1FFF2000–2FFF3000–3FFF4000–4FFF5000–5FFF6000–6FFF7000–7FFF8000–8FFF9000–9FFFA000–AFFFB000–BFFFC000–CFFFD000–DFFFE000–EFFFF000–FFFF載入中...0000–0FFF1000–1FFF2000–2FFF3000–3FFF4000–4FFF5000–5FFF6000–6FFF7000–7FFF8000–8FFF9000–9FFFA000–AFFFB

問題來源: http://www.cnblogs.com/del/archive/2009/03/09/1234066.html#1471535本例:自訂類(TMyShape)單元 :unit Unit2;interfaceuses Classes, Controls, ExtCtrls;type TMyShape = class(TShape) private fMouseFlag: Boolean; fx,fy: Integer; protected

EMF 檔案是 Windows 下的增強圖元檔案, 本例用最簡單的代碼建立了一個 EMF 檔案.CreateEnhMetaFile( DC: HDC; {所參照的 DC, 為 0 表示參照當前的顯示裝置} FileName: PChar; {檔案名稱, 為 nil 表示建立記憶體檔案} Rect: PRect; {外接矩形(單位是 0.1 毫米), 為 nil 表示使用最小矩形} Desc: PChar {描述性的說明文本, 可為 nil}): HDC;

本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure

問題來源: http://www.cnblogs.com/del/archive/2009/02/27/1399526.html#1463307本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton;

目前對鉤子的理解:譬如我們用滑鼠在某個視窗上雙擊了一次, 或者給某個視窗輸入了一個字母 A; 首先發現這些事件的不是視窗, 而是系統!然後系統告訴視窗: 喂! 你讓人點了, 並且是連續點了兩滑鼠, 你準備怎麼辦? 或者是系統告訴視窗: 喂! 有人向你家裡扔磚頭了, 不信你看看, 那塊磚頭是 A. 這時視窗的對有些事件會忽略、對有些事件會做出反應:譬如, 可能對按一下滑鼠事件忽略, 視窗想: 你單擊我不要緊, 累死你我不負責; 但一旦誰要雙擊我, 我會馬上行動,

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5:

馬上能想到的函數有:GetMemAllocMemReallocMemFreeMemGetMemoryReallocMemoryFreeMemoryNewDisposeNewStrDisposeStrStrNewStrAllocStrDisposeGlobalAllocPtrGlobalFreePtrWideStrAllocAnsiStrAllocStrDisposeMoveMoveMemoryCopyMemoryZeroMemoryFillMemoryFillCharStrBufSize給字元指

CreateCaret {建立} DestroyCaret {釋放} ShowCaret {顯示} HideCaret {隱藏} SetCaretPos {設定位置} GetCaretPos {擷取位置} SetCaretBlinkTime {設定間隔時間} GetCaretBlinkTime {擷取間隔時間}簡單測試, :代碼檔案:unit Unit1;interfaceuses Windows,

多線程應該是編程工作者的基礎技能, 但這個基礎對我來講的確有點難(起碼昨天以前是這樣).開始本應該是一篇洋洋洒洒的文字, 不過我還是提倡先做起來, 在嘗試中去理解.先試試這個:procedure TForm1.Button1Click(Sender: TObject);var i: Integer;begin for i := 0 to 500000 do begin Canvas.TextOut(10, 10, IntToStr(i)); end;end;上面程式運行時,

測試:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); end;var Form1:

問題來源: http://www.cnblogs.com/del/archive/2009/03/01/1032376.html#1464477假如有這樣三種結構, 分別來描述: 直線、圓與三角形:type {描述直線的結構} TLine = packed record ID: Integer; {編號} x1,y1: Integer; {第一點} x2,y2: Integer; {第二點} end; {描述圓的結構} TCircle = packed

訊息流程程:譬如用滑鼠左鍵點擊一下表單, 系統會收到一條 WM_LBUTTONDOWN 訊息; 當滑鼠抬起, 系統又會收到 WM_LBUTTONUP 訊息.系統收到訊息後, 會告訴表單發生的事情, 然後表單再做出反應; 當然表單能否做出反應要看表單是否有相應的響應代碼.要響應 WM_LBUTTONDOWN 訊息, 我們需要在 OnMouseDown 事件中寫代碼;要響應 WM_LBUTTONUP 訊息, 我們需要在 OnMouseUp

本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; procedure Button1Click(Sender:

非科班出身, 現在才接觸彙編, 慚愧呀, 好好學! 主選課本是清華大學王爽老師的《組合語言》. 推薦 王爽老師的彙編網組合語言之前是機器語言.機器語言是機器指令的集合, 機器指令是一系列位元字, 電腦將之轉換為一系列高低電平, 而實現運算.在 PC 機上運行機器指令的是 CPU; 不同的 CPU 有不同的指令, 所以某種組合語言也只是針對某系列的 CPU.王爽老師舉了一個用機器語言輸出 "welcome to masm" 的例子:000111101011100000000000000000000

本例:首先應該知道要接受文本的 Edit 的控制代碼, 這個有很多辦法, 本例用了最簡單的自我擷取的辦法.程式1: 準備接受文本的程式unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Edit1: TEdit; Button1:

問題來源: http://www.cnblogs.com/del/archive/2009/03/10/1407220.html#1472741代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton;

藉助 TWebBrowser 可以把軟體做的更漂亮、更靈活, 很多軟體已經或者早就這樣做了.儘管 HTML DOM 內容繁雜(涉及到 HTML、JavaScript、CSS), 但也都屬於 TWebBrowser 的功能範圍.使用 TWebBrowser 時, 如果配合上 MSHTML, 將會有很好的代碼提示; 不然也可以, 就是寫代碼困難.HTML DOM 中的一切都是源於一個叫 window 對象, 為了和 JS 中的 DOM 一致起來, 本次先擷取這個對象.TWebBrowser

問題來源: http://www.cnblogs.com/del/archive/2008/05/26/1207811.html#1475006本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton;

問題來源: http://www.cnblogs.com/del/archive/2009/03/12/1409708.html#1475240本例:自訂的類(TMyButton):unit Unit2;interfaceuses Windows, Messages, Classes, Graphics, StdCtrls;type TMyButton = class(TButton) private FBit1,FBit2: TBitmap; protected