Test ob Maus hoch oder runter

[citybreaker]

Hallo,

kann man testen ob die Maus hoch oder runter bewegt wird?
Ich hab bisher folgendes gemacht um ein image zu bewegen.

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image1.Top := Y;
end;

Nun soll je nach richtung der Inhalt der TImages geändert werden.

[moritz]

Hallo

Wie? Wo? Was? :gruebel:

Gruß

[citybreaker]

Ok, nochmal!

Ich möchte ein Bild mit der Maus bewegen. << Hab ich geschaft
Wenn das Bild nach oben bewegt wird soll der Inhalt des Bildes gewechselt werden. << Weiß nicht wie
Wenn das Bild nach unten bewegt wird soll der Inhalt des Bildes gewechselt werden. << Weiß nicht wie

[Pascal]

Hallo,

Wenn ich dich richtig verstehe, willst du dein Image ändern, wenn der Anwender den Mauszeiger nach oben bewegt. Außerdem soll das Image (denke ich) verschoben werden.

Merke dir doch die alte y-Koordinate des Images und berechne die Differenz von der y_Koordinate des Images und der y-Koordinate des Mauszeigers.
Negativ = nach unten verschoben
Positiv = nach oben verschoben

Gruß Pascal

[moritz]

Hallo,

so in etwa sollte es funktionieren. Du baust dir einen Timer, zwei Variabeln pro Richtung (x1,x2,y1,y2: Integer) und eine Statusvariable (tTimer: Boolean=true).
Und im Timer machst du dann folgendes:

Delphi-Quellcode:

...
if tTimer then
begin
  x1:=Mouse.Pos.X; // <-- oder so...
  y1:=Mouse.Pos.Y; // <-- dito
  x2:=0; y2:=0;
end else
begin
  x2:=Mouse.Pos.X;
  y2:=Mouse.Pos.Y;
  if x2>x1 then
    Maus wurde nach oben bewegt
  if x2>x1 then
    Maus wurde nach unten bewegt
  ... mit y
end;
tTimer:=Not(tTimer);
...

Gruß, Onz

[citybreaker]

Zitat:

Zitat von Pascal

Hallo,

Wenn ich dich richtig verstehe, willst du dein Image ändern, wenn der Anwender den Mauszeiger nach oben bewegt. Außerdem soll das Image (denke ich) verschoben werden.

Merke dir doch die alte y-Koordinate des Images und berechne die Differenz von der y_Koordinate des Images und der y-Koordinate des Mauszeigers.
Negativ = nach unten verschoben
Positiv = nach oben verschoben

Gruß Pascal

Habs mal Probiert und es klappt nicht.

Delphi-Quellcode:

var i:integer;
begin
  Image1.Top := Y;
  i := Image1.Top;
  if Image1.Top = i + Image1.Height then
    // Hoch
  ....
end;

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

:coder:


ciao haegar