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
|
|
procedure TForm1.FormCreate(Sender: TObject); Leave a Reply
|