Jak pozbyć się belki tytułowej Formy

Robimy to za pomocą jednej prostej procedury, którą mamy poniżej:

procedure TForm1.HideTitlebar;
 var
 Li : LongInt;
begin
 if BorderStyle=bsNone then Exit;
  Li:=GetWindowLong(Handle,gwl_Style);
 if (Li and ws_Caption)=ws_Caption then begin
  Case BorderStyle of
   bsSingle,
   bsSizeable : SetWindowLong(Handle,gwl_Style,Li and
   (not(ws_Caption)) or ws_border);
   bsDialog : SetWindowLong(Handle,gwl_Style,Li and
   (not(ws_Caption)) or ds_modalframe or ws_dlgframe);
 end;
  Height:=Height-getSystemMetrics(sm_cyCaption);
  Refresh;
 end;
end; 

Należy zadeklarować procedurę do sekcji private, oraz np. w OnClick'u Buttona lib w OnCreate formy wpisać:

HideTaskbar;

Aby jednak przywrócić tenże pasek piszemy taką procedurę:

procedure TForm1.ShowTitlebar;
 var
  Li : LongInt;
begin
 if BorderStyle=bsNone then Exit;
  Li:=GetWindowLong(Handle,gwl_Style);
 if (Li and ws_Caption)<>ws_Caption then begin
  case BorderStyle of
   bsSingle,
   bsSizeable : SetWindowLong(Handle,gwl_Style,Li or
   ws_Caption or ws_border);
   bsDialog : SetWindowLong(Handle,gwl_Style,Li or
   ws_Caption or ds_modalframe or ws_dlgframe);
  end;
   Height:=Height+getSystemMetrics(sm_cyCaption);
   Refresh;
 end;
end;

I tak samo jak wcześniej - deklarujemy w private procedurke i używamy jej w OnClicku buttona lub OnCreate :)