V v5383z Unregistered / Unconfirmed GUEST, unregistred user! 2001-03-27 #1 本人用 ImageList 与数据库相连，实现动态添加，由于库内的图片有大有小，因此很 想使加入的图片实现 Streth 功能，但找遍 ImageList 的属性和帮助，也不知如何实现， 望高手指教！
B bbcoll Unregistered / Unconfirmed GUEST, unregistred user! 2001-07-08 #4 aero: 你说“似乎很简单吧，中间用一个TBitmap过渡一下就可以了” 但具体怎么做呢？ 希望指点一下
L liao6373 Unregistered / Unconfirmed GUEST, unregistred user! 2001-09-29 #6 试试这个： procedure TForm1.Button1Click(Sender: TObject); var Bitmap,ABitmap: TBitmap; begin Bitmap := TBitmap.Create; Bitmap.LoadFromFile('F:/1.bmp'); ABitmap := TBitmap.Create; ABitmap.Canvas.StretchDraw(Rect(0,0,ImageList1.Width,ImageList1.Height),Bitmap); ImageList1.Add(ABitmap,nil); end; 但具体情况，你要对上速代码改写，但StretchDraw这一行是必不可少的。
试试这个： procedure TForm1.Button1Click(Sender: TObject); var Bitmap,ABitmap: TBitmap; begin Bitmap := TBitmap.Create; Bitmap.LoadFromFile('F:/1.bmp'); ABitmap := TBitmap.Create; ABitmap.Canvas.StretchDraw(Rect(0,0,ImageList1.Width,ImageList1.Height),Bitmap); ImageList1.Add(ABitmap,nil); end; 但具体情况，你要对上速代码改写，但StretchDraw这一行是必不可少的。
