StringGrid中单元格中绘图+文字的方案

一、新建一个项目：

在窗体上添加StringGrid 组件，设置StringGrid 组件的相关属性。

在窗体添加Image1，设置Image1的图片。

然后在在StringGrid的OnDrawCell事件作出如下代码。

 

var
r:TRect;
S:String;
begin
if (ACol=2) And  (ARow=2) then
with StringGrid1.Canvas do
Begin
  Draw(Rect.Left, Rect.Top, Image1.Picture.Graphic);
  r:=Rect;
  Font.Color:=clRed;
  Font.Size:=20;
  Brush.Style := bsClear;

  //TextOut(Rect.Left+20, Rect.Top+20,'XXX');
  s:='XXXXX';
  DrawText(Handle,PChar(s),Length(s),r,DT_CENTER or DT_SINGLELINE or DT_VCENTER);//居中显示

end;

end;

出现的效果如下：