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);