~~~~~~~~~~~~~~~~~~~~~~~~~
procedure TForm1.FormCreate(Sender: TObject) ;
begin
SetWindowLong( Handle,
GWL_STYLE,
GetWindowLong( Handle, GWL_STYLE )
and not WS_CAPTION ) ;
ClientHeight := Height;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~
Delphi tips navigator:
» Convert a Mapped Drive to a Full UNC Path
« Disable ALT+TAB, CTRL+ESC, CTRL+ALT+DEL
