起步软件技术论坛-X3

 找回密码
 立即注册
搜索
楼主: matthaus

【结贴】自定义DataGrid分组列显示内容

[复制链接]
 楼主| 发表于 2010-3-16 11:53:15 | 显示全部楼层
另外试过了OnMouseMove事件还是出现序号全部变为最后一个的问题。请问移动
DataGrid滚动条是哪个事件?
回复 支持 反对

使用道具 举报

发表于 2010-3-16 13:50:52 | 显示全部楼层
procedure TMainForm.DataGrid1Click(Sender: TObject);

procedure TMainForm.DataGrid1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
这两个不需要了
加上一个
procedure TMainForm.DataGrid1CustomDrawColumnHeader(Sender: TObject; AColumn: TTreeListColumn; ACanvas: TCanvas; ARect: TRect; var AText: string; var AColor: Integer; AFont: TFont; var AAlignment: TAlignment; var ASorted: TTreeListColumnSort; var ADone: Boolean);
这个事件吧。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-16 16:19:04 | 显示全部楼层
还是不行,DataGrid垂直方向滚动条拖动后,DataGrid分组列序号总是从1开始的,例如
本来有20条分组列数据,最后四条数据分组列序号应该是17、18、19、20,拖动滚动条后序号
变为1、2、3、4了。
回复 支持 反对

使用道具 举报

发表于 2010-3-17 09:25:43 | 显示全部楼层
不是很理解
能贴图看看吗?
最后四条是在当前界面上没有显示出来?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-17 09:27:23 | 显示全部楼层
好的,稍等
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-17 09:34:12 | 显示全部楼层
运行效果图

dd.png

44.39 KB, 下载次数: 218

回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-17 10:24:11 | 显示全部楼层
有结果了吗
回复 支持 反对

使用道具 举报

发表于 2010-3-17 13:45:55 | 显示全部楼层
已经再现了,不好意思,我找到一个更好的方法
只要一个CustomDrawCell这个事件,其他的事件都不要,
DataSetBroker2 也不需要了

procedure TMainForm.DataGrid1CustomDrawCell(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TTreeListNode; AColumn: TTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean; var AText: string; var AColor: Integer; AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean);
begin
  if ANode.HasChildren then
    begin
    lstr := StringUtils.Copy(AText, StringUtils.Pos(':', AText) + 2, 10);
   AText := Sysutils.IntToStr(ANode.Index+1)+': '+ StringUtils.Copy(AText, StringUtils.Pos(':', AText) + 2, 10);
    end;
end;
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-17 14:03:03 | 显示全部楼层
序号问题解决了,非常感谢。还有一点问题就是使用SQL构造器查询数据后让所有数据都是展开状态,请问查询动作触发的事件是什么?
回复 支持 反对

使用道具 举报

发表于 2010-3-17 15:01:47 | 显示全部楼层
楼主,你可以在afteraction事件里写,判断是否点击了望远镜
回复 支持 反对

使用道具 举报

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

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-10 16:28 , Processed in 0.040681 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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