StringGrid 怎样使某一行处于选中状态?怎样隔行换色?

S39338973 2013-03-03 11:50:27
StringGrid 怎样使某行处于选中状态?怎样隔行换色?
能给出具体操作步骤或代码吗?
...全文
365 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
feiba7288 2013-03-04
  • 打赏
  • 举报
回复
引用 4 楼 S39338973 的回复:
goRowSelected=True 已经开启了,单击时整行处于选中状态 我想实现的是指定行选中,例如第3行选中
goRowSelected := True; 然后StringGrid1.Row := i; //i为你要选中的行 即可
S39338973 2013-03-04
  • 打赏
  • 举报
回复
goRowSelected=True 已经开启了,单击时整行处于选中状态 我想实现的是指定行选中,例如第3行选中
musa2008 2013-03-04
  • 打赏
  • 举报
回复
楼上正解。。。
hongss 2013-03-04
  • 打赏
  • 举报
回复
隔行换色
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with StringGrid1 do
  begin
      if ARow mod 2 = 0 then
        begin
          Canvas.Brush.Color := RGB(255,255,255);
          Canvas.Font.Color:=clGreen;
        end
      else
        begin
          Canvas.Brush.Color := clInfoBK;
          Canvas.Font.Color:=clRed;
        end;
       Canvas.FillRect(Rect);
       Canvas.TextOut(Rect.Left + 2,Rect.Top + 2, Cells[ACol,ARow]);
  end;
end;
hongss 2013-03-04
  • 打赏
  • 举报
回复
选中一行,把Option下goRowSelected设为True就可以了

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧