Einzelnen Beitrag anzeigen

Benutzerbild von Cyberbob
Cyberbob

Registriert seit: 24. Jan 2005
Ort: Karben
626 Beiträge
 
Delphi XE7 Architect
 
#7

Re: Form Höhe wird grösser, wenn das Programm startet !!!

  Alt 9. Mai 2008, 20:22
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;
Christian
  Mit Zitat antworten Zitat