procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong( Handle,GWL_STYLE,
     GetWindowLong( Handle, GWL_STYLE )
     and not WS_CAPTION ) ;
ClientHeight := Height-50;
end;

Leave a Reply