Bonjour,

bien que pratiquant Delphi depuis longtemps, je n'ai que des connaissances superficielles.
J'utilise des curseurs personnels d'une première façon, avec LoadCursorFromFile (qui marche).
Mais je butte sur une seconde façon de faire avec LoadCursor(que je n'arrive pas à faire marcher, bien qu'ayant consulté plusieurs documentations).
Voici un exemple de mon code. Le premier curseur marche bien. Le second n'apparait pas. La resource stylo2.res a été crée avec l'éditeur de Delphi et est dans le même dossier que les autres resources (ainsi que stylo1.cur pour le premier curseur). Le compilateur ne signale pas d'erreur.
Merci beaucoup à qui pourrait me donner une piste pour trouver l'explication.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
const
  crCurseur1=1;
  crCurseur2=2;
implementation
{$R *.DFM}
{$R stylo2.res}
procedure TForm1.FormCreate(Sender: TObject);
begin
     Screen.Cursors[crCurseur1] := LoadCursorFromFile(PChar(ExtractFilePath(ParamStr(0))+'stylo1.cur'));
     Shape1.cursor:=crCurseur1;     { Le curseur n°1 apparait bien }
     Screen.Cursors[crCurseur2] := LoadCursor(HInstance,'stylo2.res');
     Shape2.cursor:=crCurseur2;     { Le curseur n°2 n'apparait pas. A sa place, c'est le curseur par défaut qui apparait }
end;