Laut der Seite
thoughtco.com - Drag a Delphi Form Without the Caption Bar funktioniert das Beispiel über den HitTest nur bedingt, sofern keine weiteren Steuerelemente / Fenster auf der Form gegeben sind, die die Oberfläche überdecken.
Ansonsten soll man beim Mausklick /
OnMouseDown folgendes ausführen:
Delphi-Quellcode:
// OnMouseDown
ReleaseCapture;
SendMessage(Form1.Handle, WM_SYSCOMMAND, 61458, 0) ;
// bzw.
ReleaseCapture;
(Sender as TControl).Perform(WM_SYSCOMMAND, SC_MOVE or HTCAPTION, 0);
Die MouseDown-Methode kann man den anderen Steuerelementen ebenso zuweisen und das Programm-Fenster lässt sich im gesamten Bereich per LMB/LMT verschieben.
P.S.: Beim TLabel u.ä. funktioniert es nicht, da hier kein Fenster gegeben.
Frühlingsrolle, ich habe mir gerade den Link durchgelesen, gute Resource -> guter Fund dazu!
Hab's verstanden wie ich es umzusetzen habe und gehe mal von einem Erfolg aus, werde dennoch morgen ein buggy dummy hochladen
