Auf Cursorveränderung reagieren

[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...