NOTES :
Cette méthode est décrite dans l'aide en ligne de Delphi sur la propriété TScreen.Cursors.
Ce programme n'est qu'une démonstration de la méthode.
Les curseurs ajoutés peuvent être créés à partir de l'éditeur d'image de Delphi. Ce programme propose deux méthode de stockage des curseurs :
- La méthode à partir d'un fichier de ressource est préférable si les curseurs utilisés n'ont pas besoin de changer
après l'écriture de l'application. Car le .RES étant intégré dans le fichier .EXE, il n'est pas necéssaire de garder les fichiers de curseurs pour la
diffusion de l'application.
- La méthode à partir d'un fichier .CUR est utilisée, si l'utilisateur du programme peut changer un curseur après l'écriture de l'application.
Par contre il ne faut pas oublier de diffuser les fichiers .CUR avec le .EXE.
CODE :
Unit Unit1; // Ajouter un curseur personnalisé // // Par Nono40 : http://nono40.developpez.com http://nono40.fr.st // mailTo:nono40@fr.st // // Cet exemple est directement inspiré de l'aide en ligne de Delphi // // Le 25/01/2002 //
// Pour définir de nouveaux curseur, il faut créer de nouvelles // constantes qui permettent des les identifier // La valeur des ces constante importent peu, mais elles // doivent être supérieures à zéro. Const
crCurseur1=1;
crCurseur2=2;
Procedure TForm1.FormCreate(Sender: TObject); Begin // Pour les curseur stockés dans les ressoucres il faut créer un fichier // de ressource avec l'éditeur d'images de Delphi, puis le lié avec // la ligne ci-dessous. {$R Curseur1.Res} // Le curseur est alors lu dans les ressources et ajouté à la liste des // curseurs utilisables par l'application
Screen.Cursors[crCurseur1] := LoadCursor(HInstance, 'CURSEUR1'); // Le curseur est utilisable comme ceux prédéfinis :
Label1.Cursor := crCurseur1;
// Pour les curseurs stockés dans des fichiers .CUR, il suffit de lire // le fichier et de l'ajouter dans la liste des curseurs
Screen.Cursors[crCurseur2] := LoadCursorFromFile(PChar(ExtractFilePath(ParamStr(0))+'CURSEUR2.CUR')); // Le curseur est utilisable comme ceux prédéfinis :
Label2.Cursor := crCurseur2; End;
