Jak usunąć pasek tytułu z formularza

Question

Czy ktoś wie, jak utworzyć formularz Delphi bez paska tytułu? Widziałem kilka linków/porad, ale nie jest to dokładnie to, czego chcę i nie mogłem tego zrobić sam.

To co próbuję osiągnąć:

Answer 1

Najpierw ustaw BorderStyle do bsNone w czasie projektowania. Następnie zadeklarować procedurę CreateParams tak:

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

i wdrożyć go jak

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

Answer 2

Ustaw BorderStyle do bsNone w Object Inspector

Answer 3

Dla lepszego stylu granicznego, można dodać flagę WS_BORDER.

jak poniżej:

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

Uwaga niż miękki linia jest narysowana w ramie granicznej.