制作没有边框的窗体,并可移动

最新推荐文章于 2024-09-19 12:38:59 发布

wind011611

最新推荐文章于 2024-09-19 12:38:59 发布

阅读量286

点赞数

文章标签： forms windows class

本文链接：https://blog.csdn.net/wind011611/article/details/2304807

版权

unit MainFrm;
interface
uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
type
  TMainForm = class(TForm)
    btnClose: TButton;
    procedure btnCloseClick(Sender: TObject);
  private
    { Private declarations }
  protected
    // Capture the WM_NCHITTEST message to enable moving the form.
   // 捕捉WM_NCHITTEST 消息,以便移动窗体
    procedure WMNCHitTest(var Message: TWMNCHitTest);  message WM_NCHITTEST;
  public
    { Public declarations }
   //创建一个没有标题但可以重设大小的窗体,要实现需要覆盖窗体的CreateParams( )方法,然后设置相关风格
    procedure CreateParams(var Params: TCreateParams); override;
  end;
var
  MainForm: TMainForm;
implementation
{$R *.DFM}
procedure TMainForm.WMNCHitTest(var Message: TWMNCHitTest);
begin
  inherited;
  Message.Result := HTCAPTION;
end;
procedure TMainForm.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := WS_THICKFRAME or WS_POPUP or WS_BORDER;
end;
end.