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;

[] [] []