Noch ein Einfall:
um die Bewegung "ständig" zu Überwachen, kannst Du dies noch benutzen:
Delphi-Quellcode:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label1.Caption := IntToStr(Mouse.CursorPos.X);
Label2.Caption := IntToStr(Mouse.CursorPos.Y);
end;
Somit müsstest Du nicht mehr auf klicken reagieren, sndern könntest immer sofort bei Bewegungen, Deine Zeitzone anzeigen.
Grüsse, Daniel
