Cursors,Cursor,exemple
Cet exemple illustre la manière d'ajouter des curseurs personnalisés à une application. Il suppose qu'un curseur personnalisé de nom NewCursor a été ajouté au fichier ressource (fichier .RES)de l'application. Vous pouvez ajouter le curseur en utilisant l'éditeur d'image.(Outils |Editeur d'image)
Le code suivant rend ce curseur disponible dans l'application via la constante crMyCursor, et en fait le curseur global de l'application.
const crMyCursor = 5; procedureTForm1.FormCreate(Sender:TObject); begin Screen.Cursors[crMyCursor]:=LoadCursor(HInstance,'NewCursor'); Cursor :=crMyCursor; end;