Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Cursor ändern


MarkusBauer - So 22.10.06 18:49
Titel: Cursor ändern
Hallo,
ich würde gerne den Standartcursor eines Formulars durch einen Anderen ersetzen. Der Cursor liegt bereits in einer .cur-Datei, aber das einbinden funktioniert nicht. Wie kann ich das hinkriegen?


alzaimar - So 22.10.06 19:15

Du must den Cursor in die .Res-Datei deiner Anwendung laden. Dazu gibt es z.B. den Image-Editor, aber es geht auch mit dem MS-Resourcen-Compiler. Wie, weiss ich aber nicht genau (aber Jeder andere).

Egal wie Du den Cursor in die RES-Datei bekommen hast, er hat einen Namen. Und über diesen Namen kannst Du den Cursor zur Laufzeit mit LoadCursor laden. Ich habe das so gemacht:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
Const
  crMyCursor = 3001;
...
initialization
  Screen.Cursors[crMyCursor] := LoadCursor (HInstance, 'MYCURSORNAME');
...
End.


Die Konstante 'crMyCursor' kannst Du dann der Screen.Cursor-Eigenschaft zuweisen.