Hallo,
ich habe ein kleines Problem mit der Abfrage der Mausposition.
Die Abfrage selber ist ja über GetCursorpos() kein Problem, aber wie kann ich
sofort feststellen das die Position sich geändert hat?
Hier mein bisheriger Code:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var
newPos: TPoint;
begin
GetCursorPos(newPos);
if (oldPos.X <> newPos.X) or (oldPos.Y <> newPos.Y) then
begin
// Aktion ausführen
end;
end;
Wie frage ich nun die alte Position dauerhaft ab?
Edit: Das ganze soll Systemweit geschehen, also bringt mir das OnMouseMove Event von ApplicationEvents sehr wenig.
Gruß
Dash