Änderungen an der Mausposition warnehmen?

[Dash]

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

[bitsetter]

Versuche es mal hiermit:

Delphi-Quellcode:

    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure MeineAppOnMessage(var Msg: TMsg; var Handled: boolean);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MeineAppOnMessage(var Msg: TMsg; var Handled: boolean);
begin
  case Msg.Message of
    WM_MouseMove:
      begin
      //mach was!
      beep;
      end;
    WM_LBUTTONUP:
      begin
      //
      end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  application.OnMessage:= MeineAppOnMessage;
end;

end.

Das onCreate Ereignis der Form nicht vergessen! :wink:

[Dash]

Hi!

Danke, aber der Code funktioniert natürlich auch nicht Systemweit :cry: Sobald die Maus mein Fenster verlässt passiert nichts mehr.

[bitsetter]

Wenn eine Nachricht der Mausposition auch über fremden Fenstern abgefangen werden soll, wird man dies mit einem Maushook machen können.
Diese Funktion wird man wohl in einer Dll einbringen müssen!
Versuche es mal hier!
assarbad

[Dash]

So, ich habe nach ein wenig suchen jetzt auch was feines gefunden.
http://swissdelphicenter.ch/de/showcode.php?id=1729

Sollte genau das richtige für mich sein :-D