很简单啊,只需要重载Form2的CreateParams方法,如下所示:
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;//可以在TaskBar上显示Form2的标题,如果不需要可以去掉。
Params.WndParent := GetDesktopWindow;//哈哈,原来奥秘在这儿!!
end;
赶快试试看?
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;//可以在TaskBar上显示Form2的标题,如果不需要可以去掉。
Params.WndParent := GetDesktopWindow;//哈哈,原来奥秘在这儿!!
end;
赶快试试看?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货