Hi,
mit folgendem Code wollte ich erreichen, dass Label2 immer der aktuellen Cursor anzeigt.
Es zeigt aber immer an: crDefault. (auch wenn ich z.B. über einem Memo bin)
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label2.caption:=CursorToString(Screen.Cursor);
end;
Nun hab ich im Forum alle(zumindest alle die ich gefunden habe) Threads die irgendwas mit Cursorn zu tun hatten und sämtliche Delphi-Hilfebeiträge gelesen und erfahren, das CrDefault angezeigt wird, wenn die darunterliegenden Schaltfächen bestimmen welcher Cursor angezeigt wird. Weiss aber immernoch nicht, wie ich nun den Cursor bekomme.
Habs deshalb auch schon mit getcursorinfo probiert und bekomme da immer als
Handle des aktuellen Cursors HICON=0, was, wie sollte es anders sein, crdefault entspricht.
Ich will "einfach" nur, dass ich in dem Label neben dem ich die Mausposition anzeige auch immer der aktuelle Cursor steht, wie komme ich an den?
Flippo