は私が procedure TForm1.Image1Click(Sender: TObject);
begin
inc(i);
ImageList1.GetIcon(i mod 4,Image1.Picture.Icon);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0;
私はコンポーネントを持っています。コンポーネントでは、動的なTImageListをロードする必要があります。 私は今日この方法で使用しますが、私のすべてのプロジェクトでは、一度に1つずつすべてのイメージを追加する必要があります。 function NavigatorImages: TImageList;
var
vIcon: TBitmap;
I: Integer;
beg