Hallo,
GetCursor liefert ein Cursor-
Handle, nicht die gewünschte Cursor-ID. Die von Delphi verwendete ID lässt sich aber relativ leicht aus dem
Handle bestimmen:
Delphi-Quellcode:
// uses Windows, Forms
function GetActiveCursor: TCursor;
var
CursorHandle: HCURSOR;
begin
CursorHandle := GetCursor;
for Result := crSizeAll to Screen.CursorCount do
if (Screen.Cursors[Result] = CursorHandle) then
Exit;
Result := crDefault;
end;
Unschön ist natürlich die feste Untergrenze für die Schleife, aber mir ist kein "offizieller" Weg bekannt, diese Grenze zu ermitteln.
Gruß Hawkeye