社区
数据库相关
帖子详情
急急急!!!mdi子窗口关闭的时候,主窗口产生什么事件???
ln521
2007-07-05 10:49:23
mdi子窗口关闭的时候,主窗口产生什么事件?让我知道是哪个子窗体关闭了
我的子窗体是打包在dll里面的!
子窗体关闭时应该有消息发给主窗体,不然主窗体上的菜单就不会自动更新了!!!
兄弟门,指教了!!!
...全文
172
3
打赏
收藏
急急急!!!mdi子窗口关闭的时候,主窗口产生什么事件???
mdi子窗口关闭的时候,主窗口产生什么事件?让我知道是哪个子窗体关闭了 我的子窗体是打包在dll里面的! 子窗体关闭时应该有消息发给主窗体,不然主窗体上的菜单就不会自动更新了!!! 兄弟门,指教了!!!
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
ln521
2007-07-06
打赏
举报
回复
牛b
hongqi162
2007-07-05
打赏
举报
回复
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
FClientInstance : TFarProc;
FPrevClientProc : TFarProc;
procedure ClientWndProc(var aMessage: TMessage);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.ClientWndProc(var aMessage: TMessage);
begin
case aMessage.Msg of
WM_MDICreate :
begin
aMessage.Result := CallWindowProc(FPrevClientProc,ClientHandle, aMessage.Msg, aMessage.wParam, aMessage.lParam);
end;
WM_MDIDESTROY:
begin
aMessage.Result := CallWindowProc(FPrevClientProc,ClientHandle, aMessage.Msg, aMessage.wParam, aMessage.lParam);
showmessage( 'WM_MDIDESTROY' );
end;
else
aMessage.Result := CallWindowProc(FPrevClientProc,ClientHandle, aMessage.Msg, aMessage.wParam, aMessage.lParam);
end;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
FPrevClientProc := Pointer(GetWindowLong(ClientHandle, GWL_WNDPROC));
FClientInstance := MakeObjectInstance(ClientWndProc);
SetWindowLong(ClientHandle, GWL_WNDPROC, LongInt(FClientInstance));
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
SetWindowLong(ClientHandle, GWL_WNDPROC, LongInt(FPrevClientProc));
end;
end.
chenzhuo
2007-07-05
打赏
举报
回复
MakeObjectInstance都用上了,强!
如何给控件自定义
事件
呀???????
急
急
急
!!!
如何给控件自定义
事件
呀???????
急
急
急
!!!
怎样实现模块间的参数传递?
急
急
急
!!!!!!!!!
急
急
急
!!!!!!!!! Delphi / Windows SDK/APIhttp://www.delphi2007.net/DelphiBase/html/delphi_20061208171655219.html 我现在做一个简易的登录器,由一个登录界面,及登录后的一些模块,但登录成功进入另一个模块后,...
java 缓冲区怎么理解_JAVA中的缓存是怎么一回事??帮忙解释下。
急
急
急
!!!!!!谢谢...
急
急
急
!!!!!!谢谢mip版关注:133答案:5悬赏:80解决时间 2021-01-24 22:17已解决2021-01-24 18:44JAVA中的缓存是怎么一回事??帮忙解释下。
急
急
急
!!!!!!谢谢最佳答案2021-01-24 19:09(1)Hibernate有两个...
用npm安装cnpm时报如下错误,怎么解决哇?
急
急
急
!!
用npm安装cnpm时报如下错误,怎么解决哇?
急
急
急
!!已经卸载过,再安装时还是报同样的错误!
请教各位大师:如何在JAVA中实现中文排序?
急
急
急
!!!!!!!
请教各位大师:如何在JAVA中实现中文排序?
急
急
急
!!!!!!!
数据库相关
2,507
社区成员
88,454
社区内容
发帖
与我相关
我的任务
数据库相关
Delphi 数据库相关
复制链接
扫一扫
分享
社区描述
Delphi 数据库相关
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章