Aktuellen Cursor rausfinden: Problem

[Flippo]

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

[Flippo]

:wiejetzt: Bisher konnte mir immer jemand zumindest sagen warum mein Plan unmöglich ist :(

Das muss doch irgendwie gehen. Ich kann doch unmöglich der erste sein den das interessiert....

Hilfe! :wall:

[ste_ett]

Den Cursor bekommst du mit

Delphi-Quellcode:

function GetCursor: HCURSOR;

. :)

[Flippo]

:gruebel: und warum hat das gestern nicht funktioniert? Danke nu gehts....

[Flippo]

Und Global mit getCursorInfo
komm da einfach nich drüber hinweg, hab genau den selben Quelltext wie Vorgestern nochmal probiert und es geht....