Home » Tipps & Tricks » System » Tastatur und Maus » Formular per Maus bewegen
Formular per Maus bewegen
Man kann es aber auch so programmieren, dass sich das Formular nur dann bewegt, wenn der Benutzer versucht es auf einem bestimmten Control zu bewegen.Das Formular wird jetzt nur bewegt, wenn der Benutzer die EasyMove-Aktion von Button1 aus startet:
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; Perform(wm_syscommand,$f012, 0); end;
Dies funktioniert übrigens auch mit jedem anderen Objekt, wleches ein Handle besitzt:
Checkbox1.Perform(wm_syscommand,$f012, 0);