【结】stringgrid的textout[问题]**

新来小职员

http://bbs.justep.com/forum.php? ... ighlight=StringGrid
这贴中的改变stringgird背景颜色的代码有个textout函数，我不太明白textout的三个参数的作用。
我这样写
     StringGrid1.Canvas.Brush.Color := Graphics.clRed;
          StringGrid1.Canvas.FillRect(Rect);
          StringGrid1.Canvas.TextOut(ACol, ARow,'yes');
效果是图中那样，单元格的内容还是没有显示

lixy

textout  是x，y定位一个坐标，在这个坐标基准上画字。

新来小职员

画字？也就是说最后一个属性的文本不是存在于单元格里的？

lixy

不存。
stringgrid是这样存取的。
procedure TMainForm.BitBtn1Click(Sender: TObject);
begin
  StringGrid1.Cells[1,1]:='R';
end;

procedure TMainForm.BitBtn2Click(Sender: TObject);
begin
     dialogs.ShowMessage(StringGrid1.Cells[1,1]);
end;

新来小职员

解决背景问题了，共享下代码
if   (ARow   =   2)   or   (ARow   =   5)   then
      begin
          StringGrid1.Canvas.Brush.Color :=   graphics.clYellow;
          StringGrid1.Canvas.TextRect(rect,   rect.Left,   rect.Top,
              StringGrid1.Cells[acol,   arow]);
      end;