Folgende Möglichkeit fällt mir noch ein:
Unterdrück doch einfach die Titelleiste. Wenn keine da ist, kann man schließlich auch nicht maximieren
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
Var
Save : LongInt;
Begin
If BorderStyle=bsNone
then Exit;
Save:=GetWindowLong(
Handle,gwl_Style);
If (Save
and ws_Caption)=ws_Caption
then Begin
Case BorderStyle
of
bsSingle,
bsSizeable : SetWindowLong(
Handle,gwl_Style,Save
and
(
Not(ws_Caption))
or ws_border);
bsDialog : SetWindowLong(
Handle,gwl_Style,Save
and
(
Not(ws_Caption))
or ds_modalframe
or ws_dlgframe);
End;
Height:=Height-getSystemMetrics(sm_cyCaption);
Refresh;
End;
end;
Damit sollte das Problem gelöst sein.
Falls Du aus ästhetischen Gründen dennoch eine Titelleiste brauchst, nimmst Du entweder ein Label dafür und plazierst es hübsch oben über die ganze Breite oder einen Screenshot von Deiner alten Titelleiste, den Du in ein Image packst...