Delphi动态创建组件
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,stdctrls;type TForm2 = class(TForm) procedure FormClose(Sender: TObject; var Action: TCloseAction); private public //拦截Left mouse down 消息 procedure WMMOUSEDOWN(var Msg:TWMLButt... 阅读全文
posted @ 2011-10-02 01:40 ManLoveGirls 阅读(1138) 评论(0) 推荐(0) 编辑
