Entwickler-Ecke

Dateizugriff - Cursor wechseln


amplifier2 - Fr 25.07.03 21:06
Titel: Cursor wechseln
Hi!
Wie kann ich einen Cursor aus einer *.cur einem Objekt zuweisen???
Danke, Horst.


specialwork - Fr 25.07.03 21:25
Titel: TScreen.Cursors
Hallo amplifier2,

Dies ist ein Auszug aus der Delphi Hilfe.

Zitat:
TScreen.Cursors

Die Eigenschaft Cursors führt die Mauszeiger auf, die für die Anwendung verfügbar sind.

property Cursors[Index: Integer]: HCursor;

Beschreibung

Mit Cursors können Sie die Darstellung des Mauszeigers für die Anwendung oder ein Steuerelement der Anwendung festlegen. TScreen stellt mehrere integrierte Zeigerformen bereit, die mit symbolischen Cursor-Konstanten indiziert sind. Die Bilder, die mit den integrierten Cursor-Konstanten verknüpft sind, können über die Eigenschaft Cursors geändert werden.

Sie können dem Array eigene Mauszeiger hinzufügen, die dann von der Anwendung bzw. einem Steuerelement verwendet werden. So fügen Sie einer Anwendung eine benutzerdefinierte Mauszeigerform hinzu:

1 Erstellen Sie die Mauszeiger-Ressource in einem Ressourceneditor.
2 Deklarieren Sie eine Cursor-Konstante, die nicht mit vorhandenen Cursor-Konstanten kollidiert.
3 Erzeugen Sie mit Hilfe der API-Funktion LoadCursor ein Handle für den neuen Mauszeiger.
4 Weisen Sie der Eigenschaft Cursors unter Verwendung der neudeklarierten Cursor-Konstante das Handle zu, das von LoadCursor zurückgegeben wurde.

Hinweis

Wenn der benutzerdefinierte Mauszeiger nicht mehr benötigt wird, brauchen Sie die API-Funktion DestroyCursor nicht aufzurufen. Delphi führt dies automatisch aus.

Gruß, Tom


Andreas Pfau - Sa 26.07.03 11:27

Hallo,

hier ein Beispiel:

Delphi-Quelltext
1:
Screen.Cursors[1]   := LoadCursor(hInstance, PChar('NameDerRessource'));                    

OK, jetzt kannst du, sogar schon zur Entworfszeit, TComponent.Cursor=1 zuweisen. Zur Laufzeit wird daraus dein persönlicher Cursor. Freigeben ces Cursors ist nicht nötig, wenn ich die API-Doku richtig verstanden habe.