窗口最小化的问题 ( 积分: 100 )

请教各位好手:
如何使模式子窗口与主窗口同时最小化,就是当子窗口最小化时,主窗口也最小化到地址栏,当Restore 时,主窗口,子窗口同时正常化.
我指的是模式窗口
谢谢

路过顺便学习

假设TForm2就是要显示的模态窗体

type
TForm2 = class(TForm)
private
procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.WMSysCommand(var Message: TWMSysCommand);
begin
if Message.CmdType and $FFF0 = SC_MINIMIZE then //如果是最小化此窗体，那么将整个Application最小化
Application.Minimize
else
inherited;
end;

难道一个工程里有多个窗口,每个窗口都要加以上一段代码吗?

多个窗口，都从这个窗口继承就好了
要不处理Application.OnMessage事件，应该也可以收到这个消息的。

PostMessage(Form2.Owner.Handle,WM_SYSCOMMAND,SC_MINIMIZE,0);

siking 最简洁