关于控件StringGrid的实现效果！急！！！急！！！-CSDN论坛

关于控件StringGrid的实现效果！急！！！急！！！

Delphi > VCL组件开发及应用

收藏回复

[问题点数：100分，结帖人lzc2125]

⋅熟悉spring mvc的高手请进，高分求教。 ⋅Spring mvc里面是否可以使用struts的标签？ ⋅ASP MVC中的htmlhelper和java中的什么技术类似？？ 更多帖子 关注私信空间博客 lzc2125 等级 本版专家分：0 结帖率 100%: 这是用StringGrid做的一个表格。
每两行代表一条数据。
由于我对这个控件不是很熟悉，图片里面的2个效果我实现不了

1，编辑中的单元格周围有边框，如图黄色位置
2，每条数据之间用实线隔开（行之间颜色切换的地方）。同一条数据的两行，并不是用黑线隔开

哪位高手帮忙指点一下，最好有代码，我是真的不熟悉
先谢谢了

2011-11-30 14:49:25

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅浅谈delphi如何增加代码的健壮性 ⋅delphi程序变量Create之后不free 有什么影响？（讨论） ⋅学好delphi要做的（外加提供几本书籍） 更多帖子 关注私信空间博客 一剑飘雪 等级 本版专家分：1919: 三高？

2011-11-30 15:55:00

点赞只看TA 引用举报 #1得分 0

⋅情人节，一个人，伤心，散分！ ⋅cxGrid使用疑问 ⋅请指教TChart画图问题 更多帖子 关注私信空间博客 jayqiang 等级 本版专家分：3837: 已经都代码上传了，下载地址
http://download.csdn.net/detail/jayqiang/3867181

2011-12-01 15:55:51

点赞只看TA 引用举报 #2得分 20

⋅情人节，一个人，伤心，散分！ ⋅cxGrid使用疑问 ⋅请指教TChart画图问题 更多帖子 关注私信空间博客 jayqiang 等级 本版专家分：3837: 颜色可能不对！自己根据Demo调整一下吧！

2011-12-01 15:56:58

点赞只看TA 引用举报 #3得分 0

⋅熟悉spring mvc的高手请进，高分求教。 ⋅Spring mvc里面是否可以使用struts的标签？ ⋅ASP MVC中的htmlhelper和java中的什么技术类似？？ 更多帖子 关注私信空间博客 lzc2125 等级 本版专家分：0: 引用 2 楼 jayqiang 的回复:
已经都代码上传了，下载地址
http://download.csdn.net/detail/jayqiang/3867181

如果是可操作的单元可呢？？
看我另外一个问题：http://topic.csdn.net/u/20111201/16/2469615c-6d4f-4c60-bace-06a776f25a34.html
谢谢了

2011-12-01 16:21:13

点赞只看TA 引用举报 #5得分 0

⋅情人节，一个人，伤心，散分！ ⋅cxGrid使用疑问 ⋅请指教TChart画图问题 更多帖子 关注私信空间博客 jayqiang 等级 本版专家分：3837: 不好意思！我电脑上没有 TAdvStringGrid 组件，所以也没法去测试你说的问题，不过我看了一下你那个贴子，道理应该是一样的！你应该可以参考这份代码的！

2011-12-01 16:32:28

点赞只看TA 引用举报 #6得分 0

⋅情人节，一个人，伤心，散分！ ⋅cxGrid使用疑问 ⋅请指教TChart画图问题 更多帖子 关注私信空间博客 jayqiang 等级 本版专家分：3837

关于TAdvStringGrid 组件的问题。可以这样写！代码如下：



procedure TForm1.AdvStringGrid1DrawCell(Sender: TObject; ACol,

  ARow: Integer; Rect: TRect; State: TGridDrawState);

var

  s: string;

begin

  s := AdvStringGrid1.Cells[ACol, ARow];

  if ARow mod 2 = 0 then

  begin

    AdvStringGrid1.Canvas.Font.Color := clBlack;

    AdvStringGrid1.Canvas.Brush.Color := $00FFCACA;

    AdvStringGrid1.Canvas.FillRect(Rect);

    AdvStringGrid1.Canvas.TextOut(Rect.Left, Rect.top, s);

  end;



  if gdFocused in State then

  begin

    AdvStringGrid1.Canvas.Brush.Color := clYellow;

    AdvStringGrid1.Canvas.FillRect(Rect);

    AdvStringGrid1.Canvas.Pen.Width := 3;

    AdvStringGrid1.Canvas.Pen.Color := clBlue;

    AdvStringGrid1.Canvas.Pen.Style := psInsideFrame;

    AdvStringGrid1.Canvas.Rectangle(AdvStringGrid1.CellRect(ACol, ARow));

    AdvStringGrid1.Canvas.TextOut(Rect.Left + 5, Rect.top +3, s);

    AdvStringGrid1.Canvas.Brush.Color := clBlue;

    AdvStringGrid1.Canvas.DrawFocusRect(AdvStringGrid1.CellRect(ACol, ARow));

  end;

end;

2011-12-01 16:51:23

点赞只看TA 引用举报 #7得分 20

⋅熟悉spring mvc的高手请进，高分求教。 ⋅Spring mvc里面是否可以使用struts的标签？ ⋅ASP MVC中的htmlhelper和java中的什么技术类似？？ 更多帖子 关注私信空间博客 lzc2125 等级 本版专家分：0: 引用 7 楼 jayqiang 的回复:
关于TAdvStringGrid 组件的问题。可以这样写！代码如下：
Delphi(Pascal) code

procedure TForm1.AdvStringGrid1DrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
var
s: string;
begin
……

现在用你的代码，在我这边的现象是：
出现了蓝色的框，但是一闪而过，也就是进入编辑状态以后，框就没有了

遇到过没？我怀疑我是本身grid设置了什么东西，但是由于我对这东西不是很熟，也无从下手

2011-12-02 08:36:26

点赞只看TA 引用举报 #8得分 0

⋅自己写的控件可展开属性的实现。。。方法有多种。。。。 ⋅关于自己写的控件两层的记录属性问题 ⋅关于自己写的控件两层的记录属性问题 更多帖子 关注私信空间博客 finish07 等级 本版专家分：162: 做好收工
procedure TForm1.SG1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  a, i: integer;
  s: string;
  r: TRect;
Const
  PenC = 1;
  SelColor = clYellow;
  InterCOlor = $ffebde;
  GrayLine = $fcfbfa;

begin
  with SG1 do
  begin
    s := Cells[ACol, ARow];
    a := Arow div 2;
    if (a mod 2 = 1) then
    begin
      Canvas.Brush.Color := InterCOlor;
    end;

    If (ARow = SG1.Row) and (ACol = SG1.Col)then   // ÐÞ¸ÄÑ¡ÖÐÐÐÑÕÉ«
    begin
      Canvas.Brush.Color := SelColor;
    end;
    Canvas.FillRect(Rect);
    If (ARow = SG1.Row) and (ACol = SG1.Col)then   // »±ß¿ò
    begin
      Canvas.Pen.Width := 3;
      Canvas.Pen.Color := $847d84;
      Canvas.MoveTo(Rect.Left+PenC, Rect.Top+PenC);
      Canvas.LineTo(Rect.Right-PenC, rect.Top+PenC);
      Canvas.LineTo(Rect.Right-PenC, Rect.Bottom-PenC);
      Canvas.LineTo(Rect.Left+PenC, Rect.Bottom-PenC);
      Canvas.LineTo(Rect.Left+PenC, Rect.Top+PenC);
      Inc(IncA);
      Label1.Caption := inttostr(Rect.Left);
      Canvas.Pen.Width := 1;
    end;
    if (ARow mod 2 = 1) then
    begin
      Canvas.Pen.Color := GrayLine;
      Canvas.MoveTo(Rect.Left, Rect.Top-1);
      Canvas.LineTo(Rect.Right, rect.Top-1);
    end;
    if (ARow mod 2 = 0) then
    begin
      Canvas.Pen.Color := GrayLine;
      Canvas.MoveTo(Rect.Left, Rect.Bottom);
      Canvas.LineTo(Rect.Right, rect.Bottom);
    end;
  end;
end;

2011-12-02 11:13:28

点赞只看TA 引用举报 #9得分 30

⋅IdFTP遍列所有文件时太多超时，无法获取文件，请问谁能帮忙看看 ⋅谁能帮忙翻译成pascal，谢谢，在线等=============可以加分 ⋅请帮忙翻译成pascal谢谢。 更多帖子 关注私信空间博客 清风皎月 等级 本版专家分：1103: 用第三方控件

2011-12-02 12:40:01

点赞只看TA 引用举报 #10得分 5

1 2

收起

收藏回复

lzc2125

等级：

关注私信 TA的帖子

我用的是stringgrid连接数据库！关于提高性能的问题: 我用的是stringgrid连接数据库！关于提高性能的问题 Delphi / Windows SDK/API...我有上万条的记录由于实际需要需要用到stringgrid控件！然而每次往里面添加纪录的时候都非常慢！例如： Stri...

关于stringgrid表格选中状态问题！

急~StringGrid座标转换问题!!

请问如何清空StringGrid里面的数据???急!: 急! Delphi / Windows SDK/APIhttp://www.delphi2007.net/DelphiDB/html/delphi_20061224144815132.html 请高手指点,我在StringGrid里面录入数据完后,保存后,想重新录入新的数据,可原先那些数据还在,怎么清空啊? ...

stringgrid 控件 rowcount 的问题！

一个程序出错,请高手帮帮忙!!急!: 一个程序出错,请高手帮帮忙!!急! Delphi / Windows SDK/... 我想从库中的数据表导到stringgrid,想做成比较直观一点的输入界面,把时间字段(sjd)作为行,把数据项目和数据编号字段作为两列输出,可是运行下面的程序时出...

BCB6调试问题：无法看某些控件属性值！: 在断点通过Watch,Evaluate/Modify窗口看StringGrid1->Cells[0][1]或StringGrid1->ColWidths[0]，查看结果显示为： Undefined symbol '_fastcall Grids::TStringGrid::GetCells(int,int)' 但同时看StringGrid1->Name...

bcb之StringGrid控件使用: StringGird控件的基本设置 stringgrid1->ColCount = 6;//设置stringgrid1总列数 stringgrid1->RowCount = 4;//设置stringgrid1总行数 stringgrid1->FixedCols = 0;//设置stringgrid1资料区列数 str...

求助！StringGrid控件的OnColumnMoved怎么用？

Delphi中StringGrid控件问题请教，求指导！

关于StringGrid的小问题，求助！

StringGrid控件: StringGrid控件 组件名称：StringGrid ●固定行及固定列： StringGrid.FixedCols:=固定行之数; StringGrid.FixedRows:=固定列之数; StringGrid. FixedColor:=固定行列之颜色; StringGrid.Color:=资料区之颜色;...

很急!!StringGrid如何讀取到數值後,設定原點?求大大幫忙

Delphi StringGrid控件的用法: Delphi StringGrid控件 组件名称：StringGrid ●固定行及固定列： StringGrid.FixedCols:=固定行之数; StringGrid.FixedRows:=固定列之数; StringGrid. FixedColor:=固定行列之颜色; ...

值得纪念的时刻 - Hello, QML!: “Hello, World!”是面向世界的标志，所以，任何程序的起始点几乎都与之相关！为了步入 QML 的世界，一起大声对天空说：“Hello, QML!”

还是StringGrid的问题.请教!

关于Delphi字符转换的问题。不会啊！！！帮帮忙！！！: 关于Delphi字符转换的问题。不会啊！！！帮帮忙！！！ VCL组件开发及应用... 输入一个任意长的字符串，使用Stringgrid控件显示字符串及其ASCII码。 s: string; s:='abc'; ...

请问一个关于StringGrid单元格字体颜色的问题，谢谢！

stringgrid 单元格字体颜色问题！

控件StringGrid下载

stringgrid内置控件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls; type TForm1 = class(TForm)...

Delphi将Stringgrid指定行添加到Memo控件中.rar: Delphi将Stringgrid指定行添加到Memo控件中，选中StringGrid中的行，点击右下角的“添加”按钮，即可将选中的StringGrid行数据添加到下边的Memo控件中显示。部分源代码如下：　procedure TForm1.FormCreate(Sender:...

请问StringGrid上面有办法用Canvas画上线条吗?!

StringGrid控件的属性和使用: StringGrid控件的属性和使用简介：StringGrid控件是一种很常用的表格显示控件，大家都知道在数据量比较大、需要按条目显示的时候，用表格显示会使整个显示简洁大方，有条理。 StringGrid控件用于建立显示字符...

ASP.NET如何实现临时数据集？新手求教！

jd_seckill京东抢茅台插件最新版【京东飞天茅台1499抢购】Python脚本的完整安装+使用教程: jd_seckill京东抢茅台插件最新版【京东飞天茅台1499抢购】Python脚本的完整安装+使用教程，这个很好用，稳定出单！

SecureCRT中文破解版: SecureCRT中文破解版欢迎大家下载，非最新版本！！！

Xshell-7.0个人免费版.zip: Xshell-7.0个人免费版，供个人免费使用。 Xshell 是一个强大的安全终端模拟软件，它支持SSH1, SSH2, 以及Microsoft Windows 平台的TELNET 协议。Xshell 通过互联网到远程主机的安全连接以及它创新性的设计和特色帮助用户在复杂的网络环境中享受他们的工作。Xshell可以在Windows界面下用来访问远端不同系统下的服务器，从而比较好的达到远程控制终端的目的。除此之外，其还有丰富的外观配色方案以及样式选择。

手把手做安卓应用开发: 安豆是一个想学Android应用开发的小白，于是它找到自己的邻居－程序员大牛－熊哥帮忙。熊哥手把手带着安豆搭建程序的开发环境，实现应用的功能，美化应用界面，让安豆终于开发出了自己的第一个安卓应用－计算器。学习的过程中，两个伙伴有问有答，学习的过程生动有趣。你一定不会睡着。让从没有接触过安卓开发并且什么都不会的小白，变成一个能够开发出简单的计算器应用的菜鸟。让小白对安卓开发有个整体的认识，初步形成安卓开发的概念，掌握安卓开发最最基础的知识。

Office2016专业增强版中文免费正式版(附安装教程)64位: Microsoft office 2016专业增强版是一款由官方发布的Microsoft office办公软件，而且免费开放给所有Windows用户免费使用，其中Excel、word、PPT都非常智能化，界面最新加入暗黑主题，并且按钮的设计风格开始向Windows10靠拢。本平台提供Office 2016专业增强版，需要的朋友可下载试试！ Office 2016 专业增强版安装教程 1. 下载

相关热词 c#轮播图怎么做 c# 动态设置透明背景 c# 图片将白底改成透明 c# 中调用vb类 c#获取项目外的文件生成简单c#程序步骤 c# 接收post c#属性的作用 c#打印圣诞树 c# 引用未能添加