Mouse

[faux]

Hallo!

Würde es so lösen (es gibt 100% eine bessere Lösung):

Delphi-Quellcode:

var
  PreviousCoords: TPoint;

...

procedure TFormx.OnMouseMove(Sender: TObject; X, Y: Integer ...);
begin
  if (PreviousCoords.X < X) then
  begin
    //nach links
  end
  else if (PreviousCoords.X > X) then
  begin
    //nach rechts
  end;
  if (PreviousCoords.Y < Y) then
  begin
    //nach oben
  end
  else if (PreviousCoords.Y > Y) then
  begin
    //nach unten
  end;
  PreviousCoords.Y = Y;
  PreviousCoords.X = X;
end;

Grüße
Faux