Ist ne ganz normale Form ohne Border, darauf liegt
ein Panel für den Form-Rand, darauf ein Panel für die
Titelleiste (mit der ich die Form "anfassen" kann) und
darauf wiederum 3 Buttons. Ganz einfach
Mit dem verschieben der Form übers Panel geht so viel einfacher :
Delphi-Quellcode:
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Form1.perform(WM_SysCommand, $F012, 0);
end;