2010年11月1日
自定义消息示例
摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; Const WM_MINE=WM_USER+100; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Pri... 阅读全文
posted @ 2010-11-01 22:14 delphi中间件 阅读(229) 评论(0) 推荐(0)
interface's demo
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; ITest = interface procedur. 阅读全文
posted @ 2010-11-01 21:35 delphi中间件 阅读(158) 评论(0) 推荐(0)