首页  编辑  

窗体最小化的问题

Tags: /超级猛料/VCL/Form,窗体/FAQ/   Date Created:
 新建一个工程,主窗体为FORM1,另外有一个窗体为FORM2,两个窗体都显示到桌面上,如何做到:
当FORM1最小化时,FORM2仍然保持在屏幕上?(是不是要更改FORM2的Parent,但我将FORM2的Parent设为桌面仍然不行)
很简单啊,只需要重载Form2的CreateParams方法,如下所示:
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
 inherited;
 Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;//可以在TaskBar上显示Form2的标题,如果不需要可以去掉。
 Params.WndParent := GetDesktopWindow;//哈哈,原来奥秘在这儿!!
end;
赶快试试看?