Mausbewegung abfragen

[Matze]

Man könnte es auch so machen (nicht getestet):

Delphi-Quellcode:

var Ursprungsposition, AktuellePos: TPoint;

...

procedure Button1Click(Sender:Tobject);
begin
  GetCursorPos(Ursprungsposition);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var i: integer;
begin
  Timer1.Interval:=1000; 
  GetCursorPos(AktuellePos);
  if (AktuellePos.x <> Ursprungsposition.x) or (AktuellePos.Y <> Ursprungsposition.Y) then
  inc(i);
  if i=3 then Color:=clred; //Code hinzufügen
end;

Ich weiß aber nicht, ob's so geht! http://litanies.dyndns.org/web/style.../green-roi.gif