So, habe damit ein wenig herumgespielt un habe ein Lösung entdeckt.
Deklariere einfach einen WM_WINDOWPOSCHANGING handler und mache dort nichts.
Dann kannst du eine beliebige Höhe setzen.
Frag mich bitte nicht warum das so funktioniert....
Delphi-Quellcode:
private
{ Private declarations }
procedure PosChange(var Msg: TWmWindowPosChanging);
message WM_WINDOWPOSCHANGING;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Height := GetSystemMetrics(SM_CYCAPTION) // + - dy ???;
end;
procedure TForm1.PosChange (var Msg: TWmWindowPosChanging);
begin
end;