Auf Cursorveränderung reagieren

[Phil125]

Zitat von 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...

Delphi-Quellcode:

procedure TForm1.Timer2Timer(Sender: TObject);
var
  bla : TCursorInfo;
begin
  bla.cbsize := sizeof (bla);
  GetCursorInfo (bla);
if bla.cbsize =crHandpoint then
begin
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
Timer2.Enabled:=false;
end;
end;.

Der Klick wird nach wie vor nicht ausgeführt, außer ich ändere es auf crDefault.
Wieso überprüft es nur den eingestellten Cursor und nicht den angezeigten ??