不好意思,自己找到方法解决了,经过测试,可行。http://www.howtodothings.com/ViewArticle.aspx?id=32285b1e9b764692929ec4f1203d2f40 This article demonstrates how to stop all forms in a Delphi app from minimizing when the main form minimizes.For each child form that you wish to remain visible do thistype TSomeForm = class(TForm) protected procedure CreateParams(var Params: TCreateParams); override; end;implementationprocedure TSomeForm.CreateParams(var Params : TCreateParams); begin inherited CreateParams(Params); Params.WndParent := GetDesktopWindow; end;
begin
self.WindowState:= wsMinimized;
form2.show;
end;应该没问题啊,只不过form1不能最小化到任务栏了。
form2.WindowState:=WsNormal;
近身剪(N-P攻略)可能根本没有调试自己的代码,那样子,Form1最小化之后,Form2也被最小化了,根本没有窗口啦。
它里面有个suiMSNPOPForm
直接就能实现如同MSN的效果
This article demonstrates how to stop all forms in a Delphi app from minimizing when the main form minimizes.For each child form that you wish to remain visible do thistype
TSomeForm = class(TForm)
protected
procedure CreateParams(var Params: TCreateParams); override;
end;implementationprocedure TSomeForm.CreateParams(var Params : TCreateParams);
begin
inherited CreateParams(Params);
Params.WndParent := GetDesktopWindow;
end;