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
