Mausbewegung

[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.