Benutzerdefinierter Cursor

[DelphiUser123]

In der Delphi Dokumentation steht:

"1. Erstellen Sie die Cursor-Ressource mithilfe eines Ressourcen-Editors.
2. Deklarieren Sie eine Cursor-Konstante mit einem Wert,der mit einer vorhandenen Cursor-Konstanten nicht in Konflikt steht.
3. Ermitteln Sie mit Hilfe der Windows API-Funktion LoadCursor ein Handle für den neuen Cursor.
4. Setzen Sie die Cursors-Eigenschaft, die von der neu deklarierte Cursor-Konstante indiziert ist, auf das von LoadCursor ermittelte Handle."

Den ersten Punkt habe ich ausgeführt mit meiner Datei "RedBigCursor.res". Da ich nur ein Laie bin komme ich nicht klar mit der restlichen Anleitung, insbesondere dem Handle. Kann jemand den Code posten?

Nochmals Danke.

[TomyN]

Ich hab die Cursor unter Prjekt -> Ressourcen und Bilder hinzugefügt und dann mache ich im Programm einfach folgendes

Delphi-Quellcode:

procedure TSATMAT.LoadCursors;
var CursorLoadID: Cardinal;
begin
  CursorLoadID := LoadCursor(hInstance, 'CUCURVE');
  screen.Cursors[cuCu] := CursorLoadID;
  CursorLoadID := LoadCursor(hInstance, 'CUPEQQ');
  screen.Cursors[cuPEQ] := CursorLoadID;
  CursorLoadID := LoadCursor(hInstance, 'REDDOT');
  screen.Cursors[cuRD] := CursorLoadID;
  CursorLoadID := LoadCursor(hInstance, 'CURED');
  screen.Cursors[cuRed] := CursorLoadID;
end;

Und dann halt screen.cursor := cuCu

[DelphiUser123]

Hallo, Danke @TomyN. Es gelingt mir, den Code mit einer VCL Anwendung zu realisieren, ich habe jedoch eine Firemonkey App. Ich bin auf diese Aussage gestoßen:

Zitat:

Unfortunately, FireMonkey does not support custom cursors.

Wäre es sinnvoll alles in eine VCL Anwendung zu übertragen und dann mit einem Emulator zu arbeiten, wenn man die App auf Android bedienen möchte?

Oder gibt es doch noch eine Möglichkeit einen eigenen Cursor in Firemonkey zu haben?