如何从表单中删除标题栏

Question

有谁知道如何创建没有标题栏的Delphi表单？ 我已经看到了一些链接/提示，但这并不是我想要的，我自己也做不到。

这是我要实现的目标：

Answer 1

首先，在设计时将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;

Answer 2

为了获得更好的边框样式，可以添加WS_BORDER标志。

像这样：

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

请注意，边框框内未画一条软线。

Answer 3

在对象检查器bsNone BorderStyle设置为bsNone