Autor Beitrag
amplifier2
Hält's aus hier
Beiträge: 7

Win XP
D6 Prof
BeitragVerfasst: Fr 25.07.03 21:06 
Hi!
Wie kann ich einen Cursor aus einer *.cur einem Objekt zuweisen???
Danke, Horst.
specialwork
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 52

Windows XP Professional; Windows Server 2003
Delphi 7 Prof, Delphi 8.Net
BeitragVerfasst: 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
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 997



BeitragVerfasst: Sa 26.07.03 11:27 
Hallo,

hier ein Beispiel:
ausblenden 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.

_________________
Life is a bad adventure, but the graphic is really good!