Test ob Maus hoch oder runter

[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