ImageListに画像を追加する

ImageListに画像を追加するには画像の種類によっていくつかの方法があります。Bitmapを追加する場合は Add メソッド、ICON を追加する場合は AddIcon メソッドを使います。

■ ImageListに Bitmapを追加する例

procedure TForm1.Button1Click(Sender: TObject); begin ImageList1.Add(Image1.Picture.Bitmap, nil); end;

■ Imageに ImageLIstの画像を割り当てる例

procedure TForm1.Button1Click(Sender: TObject); begin ImageList1.GetBitmap(0, Image2.Picture.Bitmap); end;