又一个问题,请赐教。

yeah 2000-06-04 02:56:00
新建一个工程,主窗体为FORM1,另外有一个窗体为FORM2,两个窗体都显示到桌面上,如何做到:
当FORM1最小化时,FORM2仍然保持在屏幕上?(是不是要更改FORM2的Parent,但我将FORM2的Parent设为桌面仍然不行)
...全文
101 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
Lin 2000-06-04
  • 打赏
  • 举报
回复
很简单啊,只需要重载Form2的CreateParams方法,如下所示:
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;//可以在TaskBar上显示Form2的标题,如果不需要可以去掉。
Params.WndParent := GetDesktopWindow;//哈哈,原来奥秘在这儿!!
end;
赶快试试看?
yeah 2000-06-04
  • 打赏
  • 举报
回复
Lin的回答已经解决了我的问题,非常感谢!
linkie 2000-06-04
  • 打赏
  • 举报
回复
实际上,Lin的解答是不可行的!我是了许多办法都没能成功!

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧