Caption der TForm ändern

[cruiser]

Hm... eigener Style? Wie wär folgendes?

mit GetWindowLong und SetWindowLong die Form-Caption ausblenden (die Parameter müsst ich noch nachschlagen). Wenn du auch auf den 3D-Rand verzichten kannst reicht TForm.BorderStyle auf bsNone zu setzen.

folgender Code in den OnMouseDown Events der Labels/Images die deine Form bilden lässt jene wie eine Titlebar funktionieren:

Delphi-Quellcode:

if Button = mbleft then
begin
  ReleaseCapture;
  {Hier dein Form-Bezeichner ->}TForm{<-}.Perform(WM_SysCommand, $F012, 0);
end;

Buttons:

Ich persönlich favorisiere für sowat Speedbuttons auf Flat gesetzt.
Die Schriftart 'Marlett' liefert die nötigen Close/minimize-Grafiken als Font

Funktionen der Buttons:
Application.Close
Application.Minimize
TForm.Maximize
TForm.Restore

Edit: wie man runde Ecken erstellt steht in der CodeLibrary