AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Benutzerdefinierter Cursor

Ein Thema von DelphiUser123 · begonnen am 29. Mai 2024 · letzter Beitrag vom 4. Jun 2024
Antwort Antwort
DelphiUser123

Registriert seit: 23. Feb 2013
48 Beiträge
 
#1

AW: Benutzerdefinierter Cursor

  Alt 31. Mai 2024, 23:51
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.
  Mit Zitat antworten Zitat
TomyN

Registriert seit: 8. Nov 2006
Ort: Bayreuth
289 Beiträge
 
Delphi 10.3 Rio
 
#2

AW: Benutzerdefinierter Cursor

  Alt 1. Jun 2024, 06:19
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
Angehängte Grafiken
Dateityp: png cursorRes.png (15,2 KB, 38x aufgerufen)
Thomas Neumann
Meine Projekte
www.satlive.audio
www.levelcheck.de
  Mit Zitat antworten Zitat
DelphiUser123

Registriert seit: 23. Feb 2013
48 Beiträge
 
#3

AW: Benutzerdefinierter Cursor

  Alt 4. Jun 2024, 00:21
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?
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:46 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz