procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin //image1的图象就是要替换的图象 if (acol =1) and (arow=1) then begin StringGrid1.Canvas.Draw(rect.left,rect.top,image1.Picture.Graphic ); end; end;
Rect: TRect; State: TGridDrawState);
begin //image1的图象就是要替换的图象 if (acol =1) and (arow=1) then
begin
StringGrid1.Canvas.Draw(rect.left,rect.top,image1.Picture.Graphic );
end;
end;