Inclure/utiliser un curseur animé dans votre application

Fichier Exemple.rc
Anim RCDATA "Globe.ani"

Compiler avec BRCC32.exe

Dans le projet Delphi
...
implementation

{$R *.DFM}
{$R exemple.RES}

procedure TForm1.Button1Click(Sender: TObject);
var
Res: TResourceStream;
begin
Res := TResourceStream.Create(Hinstance, 'anim', RT_RCDATA);
Res.SavetoFile('C:MonCursor.ani');
Res.Free;
Screen.Cursors[1] := LoadCursorFromFile('c:MonCursor.ani');
Button1.Cursor := 1;
DeleteFile('C:MonCursor.ani');
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour20/01/2003
VisualisationVu 6949 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Autre categorie
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur