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

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;



上一篇: Delphi下创建异形窗体
下一篇: Delphi使用NB30单元获取NetBIOS
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志:
评论: 0 | 引用: 0 | 查看次数: -
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 1000 字 | UBB代码 开启 | [img]标签 关闭