Cursor [Résolu]

Signaler
Messages postés
15
Date d'inscription
vendredi 11 septembre 2015
Statut
Membre
Dernière intervention
14 décembre 2016
-
Messages postés
675
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
19 février 2019
-
Bonsoir

je dispose d un cursor animé qui s appel sablier.ani
et je souhaite l utiliser dans mon appli en le remplacant par crHourGlass comment faire si vous avez un exemple pour m aider à apprendre.

Merci bonne soirée

1 réponse

Messages postés
675
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
19 février 2019
13
Salut
Une petite recherche avec google te donne beaucoup d'exemples
voici le principe sur les curseurs

  {-----------utilisation d'un curseur prédéfini dans Delphi--------}
Edit1.Cursor:=crCross;// on peut aussi directement l'affecter dans l'inspecteur d'objets

{-----------utilisation d'un curseur perso-----------}
Screen.Cursors[crMyCursor] := LoadCursorFromFile('showcur.cur');
Screen.Cursors[crAutreCurseur] := LoadCursorFromFile('AutreCur.cur');
//Screen.Cursors[]contient les Handles des curseurs utilisables dans l'application.
//LoadCursorFromFile charge un curseur en mémoire et renvoie son Handle
Memo1.Cursor:=crMyCursor;// changement du ceurseur pour le mémo
Button1.Cursor:=crAutreCurseur; // changement du curseur pour le bouton
end;

// les curseurs animés sont dans des fichiers .ani
// par exemple :
Screen.Cursors[crCurseurAnime]:= LoadCursorFromFile('c:\windows\cursors\hourglas.ani');
Button2.cursor:=crCurseurAnime;