如何在StringGrid中间的其中一个格子加个小图标

Question

例如 stringGrid 有9格           1   2   3
          4   5   6
          7   8a  9
在8a这个格子加个图标或满足条件其中一个格子加上图标 最好有代码,小弟是菜鸟,谢谢

Answer 1

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  bitmap: Ticon;
begin
{在格中显示ICO图标}
  bitmap := Ticon.Create;
  bitmap.LoadFromFile('c:\Alpha_Ttao.ico');
  try
    with StringGrid1 do
    begin
      if not bitmap.Empty then
      {---此处调整位置，不对的话自已调整一下吧---}
      if   (ACol   =  3)   and   (ARow =3)   then
        Canvas.Draw(rect.Left,rect.Top, bitmap);
   end;
  finally
    bitmap.Free;
  end;
end;
{
AROW 是行位置
ACol 是列位置}

Answer 2

必须设在这个过程中吗,在show 中行吗