Author: Jonas Bilinkevicius

How to create a form with a border but without a caption

Answer:

1   { ... }
2   type
3     TForm1 = class(TForm)
4     public
5       procedure CreateParams(var Params: TCreateParams); override;
6     end;
7   
8   procedure TForm1.CreateParams(var Params: TCreateParams);
9   begin
10    inherited;
11    {check if caption is set}
12    if (Params.Style and WS_CAPTION) <> 0 then
13    begin
14      {delete caption}
15      Params.Style := Params.Style xor WS_CAPTION;
16      {Required: add popup style}
17      Params.Style := Params.Style or WS_POPUP;
18    end;
19  end;