怎么向ImageList动态添加jpg图片？

Question

网络上现有的例子都是添加bmp图片的

Answer 1

同意2楼 先将jpg转成bmpuses jpeg;var
jpg:TJPEGImage;
bmp:TbitMap;
beginjpg:=TJPEGImage.create;
bmp:=TbitMap.create;
jpg.loadfromfile('文件名');
bmp.assign(jpg);
...
...
bmp.free;
jpg.free;
end;

Answer 2

procedure TForm1.FormCreate(Sender: TObject);
Var
        TheBitmap : TBitmap ;
begin
        TheBitmap := TBitmap.Create ;
        TheBitmap.LoadFromFile(ParamStr(0) + 'Img\1.bmp') ;
        ImageList1.Add(TheBitmap, nil) ;        TheBitmap.LoadFromFile(ParamStr(0) + 'Img\2.bmp') ;
        ImageList1.Add(TheBitmap, nil) ;        TheBitmap.LoadFromFile(ParamStr(0) + 'Img\3.bmp') ;
        ImageList1.Add(TheBitmap, nil) ;        TheBitmap.LoadFromFile(ParamStr(0) + 'Img\4.bmp') ;
        ImageList1.Add(TheBitmap, nil) ;        TheBitmap.Free ;
end;

Answer 3

 看錯了。原來是JPG的。下面一個位圖的，一個JPG的。unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList,jpeg, StdCtrls;type
  TForm1 = class(TForm)
    ImageList1: TImageList;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
Var
  TheBitmap : TBitmap ;
begin
  TheBitmap := TBitmap.Create ;
  TheBitmap.LoadFromFile(ParamStr(0) + 'Img\1.bmp') ;
  ImageList1.Add(TheBitmap, nil) ;  TheBitmap.LoadFromFile(ParamStr(0) + 'Img\2.bmp') ;
  ImageList1.Add(TheBitmap, nil) ;  TheBitmap.LoadFromFile(ParamStr(0) + 'Img\3.bmp') ;
  ImageList1.Add(TheBitmap, nil) ;  TheBitmap.LoadFromFile(ParamStr(0) + 'Img\4.bmp') ;
  ImageList1.Add(TheBitmap, nil) ;  TheBitmap.Free ;end;procedure TForm1.Button2Click(Sender: TObject);
beginend;procedure TForm1.FormCreate(Sender: TObject);
Var
  TheBitmap : TBitmap ;
  TheJpeg: TJPEGImage;
begin  TheJpeg := TJPEGImage.Create;
  TheJpeg.LoadFromFile(ParamStr(0) + 'Img\1.jpg');
  TheBitmap := TBitmap.Create ;
  TheBitmap.Assign(TheJpeg);
  ImageList1.Add(TheBitmap, nil) ;  FreeAndNil(TheBitmap) ;
  FreeAndNil(TheJpeg);
end;end.

Answer 4

德华的应该把 ImageList ， Image 宽度，高度考虑进去，要不有时候会报错，