Delphi中OnDrawCell的使用技巧[3]

　　．拷貝圖形

　　設置OnDrawCell事件讀取臨時文件並將圖形拷貝到表格的指定列

if ((ACol=)and(ARow>) and (GridColCount>)) then begin

//表格至少需要兩列

FileName:=D: emp;

S:=IntToStr(ARow);

FileName:=FileName＋S;

FileName:=FileName＋bmp;

MyImage:=TImageCreate(Self);//創建Image控件

MyImageParent:= self;

//讀臨時文件

MyImagePictureBitmapLoadFromFile(FileName);

//拷貝圖形

GridCanvasDraw(RectLeftRectTopMyImage

PictureGraphic);

MyImageDestroy(); //釋放Image控件

end;

[]  []  []  

From:http://tw.wingwit.com/Article/program/Delphi/201311/24773.html