Auf Cursorveränderung reagieren

[Phil125]

Hallo,

Mein Programm soll wenn der Cursor von crDefault auf crHandpoint wechselt
einen Linkscklick durschführen
So habe ich es bisher probiert:

Delphi-Quellcode:

if Screen.Cursor = crHandPoint then
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

Jedoch wird so der Mausklick nie ausgeführt egal welcher cursor gerade zu sehen ist.
Ich denke dass dies daran liegt das er nur den aktuellen Standard Cursor überprüft,
nicht den aktuell angezeigten.

Denn wenn ich den Code so umändere:

Delphi-Quellcode:

if Screen.Cursor = crDefault then
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

wird der Klick sofort ausgeführ auch wenn nicht der crDefault Cursor
gerade angezeigt wird.

Ich hoffe mir kann jemand helfen !

[SimStar001]

du kontrollierst ja mit deinem code nur zur ausführeung den cursor status...
du musst z.b. mit nem timer ständig überprüfen...

[quendolineDD]

Das sind alle relevanten Funktionen zum Cursor: klick mich.
Weiß nicht, ob es eine Nachricht gibt, wenn der Cursor gewechselt wird. Jedenfalls kann man mit WM_SETCURSOR den Cursor wechseln.

[freak4fun]

Delphi-Quellcode:

if Screen.Cursor = crDefault then
begin
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);  
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;

:wink:

[Phil125]

Zitat:

Zitat von SimStar001

du kontrollierst ja mit deinem code nur zur ausführeung den cursor status...
du musst z.b. mit nem timer ständig überprüfen...

Ist bereits in einem Timer

[Reinhard Kern]

Zitat:

Zitat von quendolineDD

Das sind alle relevanten Funktionen zum Cursor: klick mich.
Weiß nicht, ob es eine Nachricht gibt, wenn der Cursor gewechselt wird. Jedenfalls kann man mit WM_SETCURSOR den Cursor wechseln.

Hallo,

nach Beschreibung GetCursorInfo. Habs aber nicht getestet.

Gruss Reinhard

[Phil125]

Zitat:

Zitat von Reinhard Kern

Zitat:

Zitat von quendolineDD

Das sind alle relevanten Funktionen zum Cursor: klick mich.
Weiß nicht, ob es eine Nachricht gibt, wenn der Cursor gewechselt wird. Jedenfalls kann man mit WM_SETCURSOR den Cursor wechseln.

Hallo,

nach Beschreibung GetCursorInfo. Habs aber nicht getestet.

Gruss Reinhard

Wäre verdammt nett wenn mir jemand den Code dazu gleich sagen könnte,
steige da leider nicht ganz durch...

[Phil125]

keiner ?

[Hybrid666]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  bla : TCursorInfo;
begin
  bla.cbSize := sizeof (bla);
  GetCursorInfo (bla);
end;

Damit wird die genannte funktion ausgeführt. In bla stehen dann deine Cursor infos...

[toms]

Zitat:

Zitat von Phil125

Wäre verdammt nett wenn mir jemand den Code dazu gleich sagen könnte,
steige da leider nicht ganz durch...

Ich hoffe aber, dass du weisst wie die Forumsuche funktioniert?
GetCursorInfo
oder GetCursorInfo Delphi