04 2012 档案

Delphi线程类(三)
摘要：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 ... 阅读全文
posted @ 2012-04-23 10:58 Jekhn 阅读(262) 评论(0) 推荐(0)
Receive Windows Messages In NonWindowed Control
摘要：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... 阅读全文
posted @ 2012-04-21 15:19 Jekhn 阅读(331) 评论(0) 推荐(0)