高手们,我求您了,进来吧! 有一比较蠢的方法那就是在子窗体的最大化是,给主窗体发自定义消息自定义消息的定义比如constWM_aaaa = WM_USER+100;procedure ddd(message:Tmessage):message WM_aaaa; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 发送是用sendMessage(主窗体的handle,wm_aaaa,0,0); 捕捉子窗口最小化事件,然后通知父窗口怎样捕捉,怎样通知你会不会?捕捉方法:在子窗口的类中添加如下代码:TForm1=class(TForm)....private procedure GetMinMsg(var K:TMessage);message WM_SYSCOMMAND;//捕捉系统命令的最小 //化事件End;....TForm1.GetMinMsg(var K:TMessage);begin if K.WParam=SC_MINIMIZE then begin PostMessage(爸爸窗口.Handle,WM_USER+100,0,0);//通知父窗口 end; Inherited;//这个你一定要加上,否则!自己查资料end;//用类似的方法捕捉子窗口发送过来的消息:在父窗口的类中添加如下代码:TForm2=class(TForm)....private procedure GetMinMsg(var K:TMessage);message WM_USER+100End;....TForm2.GetMinMsg(var K:TMessage);begin //在这里处理你最想知道的,子窗口的最小化事件end; 在DELPHI中调用VC写的DLL 超级连接 用Delphi7能进行象CAD那样画线吗? 急,请高手赐教!ADO更新ORACLE数据库的一个问题。 大家勿进,自己换ID! 测局域网速用什么控件呀急呀 请问如何发布可播放RM的应用程序? 請關注:關於保存有事務處理問題... 关于Delphi的迷惑? 我用sakemail做了个email小程序,可有时接收下来的邮件会乱码这是为何?有什么解决办法? 在DELPHI中,如何创建一个窗体的对象让它响应消息,但是不(在任何地方)显示它, 用DrawText重画StringGrid后Cells[Col,Rol]中的字出现重字,如何解决。
sendMessage(主窗体的handle,wm_aaaa,0,0);
怎样捕捉,怎样通知你会不会?
捕捉方法:
在子窗口的类中添加如下代码:
TForm1=class(TForm)
....
private
procedure GetMinMsg(var K:TMessage);message WM_SYSCOMMAND;//捕捉系统命令的最小
//化事件
End;....TForm1.GetMinMsg(var K:TMessage);
begin
if K.WParam=SC_MINIMIZE
then begin
PostMessage(爸爸窗口.Handle,WM_USER+100,0,0);//通知父窗口
end;
Inherited;//这个你一定要加上,否则!自己查资料
end;
//用类似的方法捕捉子窗口发送过来的消息:
在父窗口的类中添加如下代码:
TForm2=class(TForm)
....
private
procedure GetMinMsg(var K:TMessage);message WM_USER+100
End;....TForm2.GetMinMsg(var K:TMessage);
begin
//在这里处理你最想知道的,子窗口的最小化事件
end;