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

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;