04 2012 档案
摘要:View Code type TfrmMain = class(TForm) mmoMsg: TMemo; btnNewThread: TButton; btnShutdownAll: TButton; procedure btnNewThreadClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure btnShutdownAllClick(Sender: TObject); private { Private declarations } public ...
阅读全文
摘要:View Code interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TMsgReceiver = class(TObject) private fMsgHandlerHWND : HWND; WM_MY_UNIQUE_MESSAGE : Cardinal; procedure WndMethod(var Msg: TMessage); public Point : TPoint; constructo...
阅读全文

浙公网安备 33010602011771号