码迷,mamicode.com
首页 > Windows程序 > 详细

Delphi下重载窗体CreateParams翻转关闭按钮

时间:2015-11-26 22:56:42      阅读:196      评论:0      收藏:0      [点我收藏+]

标签:

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    procedure CreateParams(var Params: TCreateParams); override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


{ TForm1 }

procedure TForm1.CreateParams(var Params: TCreateParams);
var
  WndParent: HWND; //保存桌面句柄
begin
  inherited CreateParams(Params);
  with Params do
  begin
    EXStyle := EXStyle or WS_EX_TOPMOST or WS_EX_ACCEPTFILES or WS_DLGFRAME;
    WndParent := GetDesktopWindow;
  end;
end;
技术分享

http://www.lsworks.net/article/3.html

Delphi下重载窗体CreateParams翻转关闭按钮

标签:

原文地址:http://www.cnblogs.com/findumars/p/4998968.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!