Mausbewegung

[Muellermilchtrinker]

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???

[Matze]

Hallo,

merke dir im OnMouseDown die aktuellen Mauskoordinaten und addiere sie im OnMouseMove.

[Muellermilchtrinker]

Funktioniert danke.

[rollstuhlfahrer]

Zitat von Muellermilchtrinker:

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 hier kann gar nicht funktionieren, weil x/yold lokale Variablen sind. Du berechnest also RotateX = rotateX + X - X => RotateX = RotateX (Hinweis: Der Wert hier ändert sich nicht). Du müsstest hier wenn schon globalere Variablen nehmen (also entweder globale Variablen oder Form-Member).

Bernhard

[Matze]

Genau so habe ich es vorhin auch schnell zusammen getippt.
Nun kann ich die Lösung ja zeigen.

[Sir Rufo]

Zitat von rollstuhlfahrer:

Zitat von Muellermilchtrinker:

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 hier kann gar nicht funktionieren, weil x/yold lokale Variablen sind. Du berechnest also RotateX = rotateX + X - X => RotateX = RotateX (Hinweis: Der Wert hier ändert sich nicht). Du müsstest hier wenn schon globalere Variablen nehmen (also entweder globale Variablen oder Form-Member).

Bernhard

Das dieser Code gar nicht funktioniert hat nichts mit den lokalen Variablen zu tun.

Code:

Xold = x
Yold = y

Ok, dann schauen wir uns mal die nächsten Zeilen an

Code:

RotateX = RotateX + Xold - Xold => RotateX = RotateX

Wenn die Compilermagic hier richtig greift, dann wird daraus kein Code gemacht, weil ja eh nichts passiert.

[mkinzler]

Zitat:

Das dieser Code gar nicht funktioniert hat nichts mit den lokalen Variablen zu tun.

Sagen wir mal nicht nur. Selbst wenn der andere Fehler nicht wäre, würden die alten Werte sofort wegen des falschen Scopes vergessen