Test ob Maus hoch oder runter

[Haegar]

hab ne lösung gefunden, funktioniert wunderbar.

Delphi-Quellcode:

procedure TForm1.DrawMouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);
begin

 if not (player.image.name='hoch') and (player.y>y) then
  Player.image:=Liste.Items.find('hoch');

 if not (Player.image.name='runter'); and (player.y<y) then
  Player.Image:=Liste.Items.Find('runter');

 Player.Y:=Y;
end;

ciao haegar