Affiche un curseur dans Image1Résolu

Question

Salut à tous 

j'aurais une petite question a poser,

je faire ca pour afficher un curseur nommée HAND que se trouve comme un resource dans le fichier "C:\resource.dll", sous le type CURSORS.... 
mais je recoit se message d'erreur "icon image is not valid", aide svp, où est la faute


procedure TForm1.Button1Click(Sender: TObject);
var SrcHandle:hwnd;
    MyRes:integer;
    rStream: TResourceStream;
    ico:ticon;
begin
   ico:=Ticon.Create;
   SrcHandle:=loadlibrary('C:\resource.dll');
   try
     rStream := TResourceStream.Create(SrcHandle, PChar('HAND'), 'CURSORS');
     try
       ico.LoadFromStream(rStream);
       Image1.Picture.Icon.Assign(ico);
     finally
       rstream.Free;
     end;
   finally
     ico.Free;
   end;

merci d'avance 
Amine;

cs_ahmed12 · Accepted Answer

Salam
Utilisez putôt la fonction 
LoadCursor(HInstance,HandelName);
c'est plu professionnelle
Bonnn chance mon Frere
Ahmed-Ouba-Alger

Caribensila · Answer

Salut,

Un curseur est de type TCursor, pas TIcon.

Affiche un curseur dans Image1

2 réponses

Votre réponse

Discussions similaires