关于重载FormCreate的问题

zdk 2003-05-17 11:09:49

首先声明：form3继承form2,form2继承form1。
每个form都有FormCreate。
不想让form3在FormCreate的时候执行form2的FormCreate。
请问高手们怎样实现？谢谢！

...全文

50 4 打赏收藏转发到动态举报

写回复

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

tobelost 2003-05-17

打赏
举报

回复

學習。

fyje 2003-05-17

打赏
举报

回复

是，等同于复制之类的

智商无下限 2003-05-17

打赏
举报

回复

当然是自己写一个覆盖了！

sysu 2003-05-17

打赏
举报

回复

在Form3的FormCreate事件中把 inherited; 那行去掉就可以了。

Delphi捕获与截获消息，　　private 　　 { Private declarations } 　　 //在应用程序层处处理消息　　 procedure OnAppmessage(var msg:TMsg;var handled:boolean); 　　 //重载WndProc方法，在窗口过程处处理消息　　 procedure WndProc(var msg:TMessage);override; 　　 //自定义的消息处理过程　　 procedure MyMessage(var msg:TMessage);message WM_MYMSG; 　　 //重载缺省的消息处理过程　　 procedure DefaultHandler(var msg);override; 　　 public 　　 { Public declarations } 　　 end; 　　var 　　 Form1: TForm1; 　　implementation 　　{$R *.dfm} 　　{消息发送方法的数组，SendPostString[0]是 Send消息, 　　 SendPostString[1]是Post消息，在程序中是以判断消息结构的　　 wParam字段来得到索引值的。SendMessage 时将wParam置为0，　　 PostMessage 时将wParam置为1。} 　　const 　　SendPostStrings:array[0..1] of string=('Sent','Posted'); 　　procedure TForm1.FormCreate(Sender: TObject); 　　begin 　　 //用OnAppmesage过程设置应用程序的Onmessage事件过程　　 application.OnMessage :=OnAppmessage; 　　 //使用Checkbox.tag属性来存储与之相关的Radiobutton按钮的引用　　 CBox1.Tag:=longint(FRB1);

窗体间传递参数的例子。菜鸟收集的小代码。

Delphi实现QQ消息弹框.doc

BCB环境下，根据windows消息，查询设备注册表，识别插入的USB串口设备,弹窗提示出入与移除的串口号。

主要介绍了Delphi 在窗体上创建自己光标的实例的相关资料,希望通过本文能帮助到大家，需要的朋友可以参考下

5,930

社区成员

262,936

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章