关于重载FormCreate的问题

zdk 2003-05-17 11:09:49

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

...全文

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

写回复

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

tobelost 2003-05-17

打赏
举报

回复

學習。

fyje 2003-05-17

打赏
举报

回复

是，等同于复制之类的

智商无下限 2003-05-17

打赏
举报

回复

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

sysu 2003-05-17

打赏
举报

回复

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

　procedure TForm1.FormCreate(Sender: TObject); 　begin 　//用OnAppmesage过程设置应用程序的Onmessage事件过程　application.OnMessage :=OnAppmessage; 　//使用Checkbox.tag属性来存储与之相关的Radiobutton...

procedure TForm1.FormCreate(Sender: TObject); begin SetWindowLong(Self.Handle, GWL_WNDPROC, LongInt(Proc)); end; procedure TForm1.Proc(var Message: TMessage); begin inherited; if Message.Msg ...

- 实现无标题窗体的移动，需要重载窗体的`MouseDown`和`MouseMove`事件，通过计算鼠标点击时的相对位置来模拟标题栏拖动。 - 调整大小通常需要自定义处理`WM_NCHITTEST`消息，以便在窗体边缘响应鼠标拖动。 3. **...

在BCB6.0中，我们可以创建一个窗体类，重载OnCreate或OnMessage方法，以监听WM_DEVICECHANGE消息。该消息在系统设备发生变化时发送，如USB设备的插入或移除。以下是一个简单的例子： ```cpp void __fastcall TForm1...

`CTest_MFCDlg` 类中的`OnInitDialog` 初始化光标，`ShowSelfCaret` 函数执行创建和显示光标的操作，而重载的`PreTranslateMessage`方法可能用于处理键盘消息。通过这样的实现，用户在窗体上按下的每个键都会被...

5,930

社区成员

262,936

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章