起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 146|回复: 4

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

[复制链接]
发表于 2008-4-1 11:54:22 | 显示全部楼层 |阅读模式
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');
效果是图中那样,单元格的内容还是没有显示

1.jpg

47.89 KB, 下载次数: 98

回复

使用道具 举报

发表于 2008-4-1 11:57:12 | 显示全部楼层
textout  是x,y定位一个坐标,在这个坐标基准上画字。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-1 15:12:24 | 显示全部楼层
画字?也就是说最后一个属性的文本不是存在于单元格里的?
回复 支持 反对

使用道具 举报

发表于 2008-4-1 15:17:26 | 显示全部楼层
不存。
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;
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-1 15:57:17 | 显示全部楼层
解决背景问题了,共享下代码
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;
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-9 20:57 , Processed in 0.042247 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表