大悟还俗

邮箱 key_ok@qq.com 我的收集 http://pan.baidu.com/share/home?uk=1177427271
随笔 - 235, 文章 - 0, 评论 - 10, 阅读 - 14万
  新随笔  :: 联系 :: 订阅 订阅  :: 管理
复制代码
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
复制代码

 

努力加载评论中...
点击右上角即可分享
微信分享提示