给你找了个代码:procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin if not (gdFixed in state) then begin if Stringgrid1.Cells[ACol,ARow]='...' then stringgrid1.canvas.Draw(rect.left,rect.top,Image1.Picture.Graphic ); end; end;
Rect: TRect; State: TGridDrawState);
begin
if not (gdFixed in state) then
begin
if Stringgrid1.Cells[ACol,ARow]='...' then
stringgrid1.canvas.Draw(rect.left,rect.top,Image1.Picture.Graphic );
end;
end;
Rect: TRect; State: TEasyGridDrawState);
begin
EasyGrid1.Canvas.FillRect(rect);
EasyGrid1.Canvas.Draw(Rect.Left,Rect.Top,Image1.Picture.Graphic);
end;