soit i privé entier le code procedure TForm1.Image1Click(Sender: TObject);
begin
inc(i);
ImageList1.GetIcon(i mod 4,Image1.Picture.Icon);
end;
procedure TForm1.FormCreate(Sender: TObject
J'utilise un ensemble d'environ 100 icônes dans mon application, celles-ci sont accessibles en utilisant des numéros de réfrence fixes et ces numéros sont également mis à la disposition de l'utilisate
Je viens de démarrer un nouveau projet et j'utilise le composant Delphi 2009 Actionmanager pour la première fois. Le gestionnaire d'actions a une liste d'actions standard, ce qui me donne des actions