[Delphi] DBGrid中使用TImage顯示圖片

原本是使用TBitmap，但這樣會造成User在進入程式再去抓圖片進去，會有找不到路徑的問題；
且TBitmap為非可視元件，沒辦法做出像TImage的隱藏(Visible:=False)於form中，再用程式去讀出的方式。


使用TBitmap:
Pic := TBitmap.Create;
......

DBGrid1.Canvas.StretchDraw(Rect, Pic);


使用TImage:
DBGrid1.Canvas.StretchDraw(Rect, Image1.Picture.Bitmap);


參考資料: http://stackoverflow.com/questions/1593277/how-to-draw-on-the-entire-area-of-a-resized-timage-in-delphi

KeyWord:

delphi Timage canvas

Image1.Picture.Bitmap.Width := Image1.Width;