DruckenMister WongFacebook

Formular per Maus bewegen
System Win9x, WinNT, Win2000, WinXP, Vista, Win7
Ab Delphi-Version Delphi 1
Letzte Änderung 28.09.2010

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);
Ähnliche Seiten: