大悟还俗

邮箱 key_ok@qq.com 我的收集 http://pan.baidu.com/share/home?uk=1177427271
posts - 236, comments - 8, trackbacks - 0, articles - 0
  新随笔 :: 联系 :: 订阅 订阅 :: 管理

公告

窗体Form的FormStyle属性设置为fsStayOnTop时属性设置不起作用问题探讨。

Posted on 2013-11-18 17:12 大悟还俗 阅读(...) 评论(...) 编辑 收藏
procedure CreateParams(var Params: TCreateParams); override; 





procedure MainForm.Createparams(var Params: TCreateParams);
begin
  inherited;
  With Params do
  begin
    WndParent := Application.MainForm.Handle;
    Params.ExStyle := WS_EX_TOPMOST;
  end;
end;
View Code