Und was machst du wenn die Titelleiste eine andere höhe hat?
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
oldheight : Integer;
begin
oldheight := ClientHeight;
SetWindowLong(
Handle, GWL_STYLE, GetWindowLong(
Handle, GWL_STYLE)
and not WS_CAPTION);
ClientHeight:=oldheight;
end;