delphi – 如何从表单中删除标题栏

发布时间：2020-12-15 04:27:32 所属栏目：大数据来源：网络整理

导读：有没有人知道如何创建没有标题栏的Delphi窗体？我已经看到一些链接/提示,但它不完全是我想要的,我不能自己做. 这是我正在努力实现的：解决方法首先,在设计时将BorderStyle设置为bsNone.然后这样声明程序CreateParams： type TForm1 = class(TForm) private

有没有人知道如何创建没有标题栏的Delphi窗体？我已经看到一些链接/提示,但它不完全是我想要的,我不能自己做.

这是我正在努力实现的：

解决方法

首先,在设计时将BorderStyle设置为bsNone.然后这样声明程序CreateParams：

type
  TForm1 = class(TForm)
  private
  protected
    procedure CreateParams(var Params: TCreateParams); override; // ADD THIS LINE!
    { Private declarations }
  public
    { Public declarations }
  end;

并实现它

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style or WS_THICKFRAME;
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!