Thema: Delphi Mausbewegung

Einzelnen Beitrag anzeigen

Benutzerbild von Muellermilchtrinker
Muellermilchtrinker

Registriert seit: 1. Aug 2009
447 Beiträge
 
Delphi 2009 Professional
 
#1

Mausbewegung

  Alt 24. Aug 2010, 19:12
Delphi-Version: 2009
Hallo DP,

ich versuche gerade, dass wenn ich auf einem Panel die linke Maustaste gedrückt halte und dann die Maus bewege, dass dann die Bewegung regestriert wird.
Also wenn ich meine Maus 150 px bewege, dass dann der Wert zu einer Variable addiert wird.
Hoffe ihr könnt mir helfen.
Habs so versucht:
Delphi-Quellcode:
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var xold,yold:integer;
begin
  xold := x;
  yold := y;
  RotateX := RotateX + xold-x;
  RotateY := RotateY + yold-y;
end;
Das Problem ist ja, dass der Wert immer geändert wird, von meinem xold/yold. Wie kann ich das schützen???
Chuck Norris doesn't need backups. He just uploads his files and lets the world mirror them.
  Mit Zitat antworten Zitat