怎么將image存進list里面
uj5u.com熱心網友回復：
var
ImgLst:TImageList
begin
ImgLst:=TImageList.Create(nil);
try
ImgLst.Add(YourImage,nil);
finally
ImgLst.Clear;
ImgLst.Free;
end;
end;
uj5u.com熱心網友回復：
呼叫時候怎么做
uj5u.com熱心網友回復：
var
ImgLst:TImageList
begin
ImgLst:=TImageList.Create(nil);
try
ImgLst.Add(YourImage,nil);
ImgLst.GetBitmap(index,YourNImage)//呼叫
finally
ImgLst.Clear;
ImgLst.Free;
end;
end;
uj5u.com熱心網友回復：
謝謝，我是動態創建的image，可以這樣子存進去嗎
uj5u.com熱心網友回復：
procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap: TBitmap;
Temp: TBitmap;
Image:TjpegImage;
begin
Bitmap := TBitmap.Create;
Temp := TBitmap.Create;
Image:=TjpegImage.Create;
try
Image.LoadFromFile('D:\Temp\9.jpg'); // 讀入JPG
Bitmap.assign(Image); // 讀入JPG
// Bitmap.LoadFromFile('D:\Temp\9.bmp'); // 讀入BMP
Temp.Width := ImageList1.Width;
Temp.Height := ImageList1.Height;
Temp.Canvas.StretchDraw(Temp.Canvas.ClipRect, Bitmap);
ImageList1.Add(Temp, Temp);
finally
Image.Free;
Temp.Free;
Bitmap.Free;
end;
end;
上述代碼讀入JPG檔案讀入ImageList
uj5u.com熱心網友回復：
如果屏蔽11，12句，啟動13句。 就是將BMP檔案讀入ImageList。轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/91744.html
標籤：語言基礎/算法/系統設計
上一篇：微信服務商分賬功能開發（PHP）