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

matthaus · 发表于 2010-3-16 11:53:15

另外试过了OnMouseMove事件还是出现序号全部变为最后一个的问题。请问移动
DataGrid滚动条是哪个事件？

atiger · 发表于 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);
这个事件吧。

matthaus · 发表于 2010-3-16 16:19:04

还是不行，DataGrid垂直方向滚动条拖动后，DataGrid分组列序号总是从1开始的，例如
本来有20条分组列数据，最后四条数据分组列序号应该是17、18、19、20，拖动滚动条后序号
变为1、2、3、4了。

atiger · 发表于 2010-3-17 09:25:43

不是很理解
能贴图看看吗？
最后四条是在当前界面上没有显示出来？

matthaus · 发表于 2010-3-17 09:27:23

好的，稍等

matthaus · 发表于 2010-3-17 09:34:12

运行效果图

matthaus · 发表于 2010-3-17 10:24:11

有结果了吗

atiger · 发表于 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;

matthaus · 发表于 2010-3-17 14:03:03

序号问题解决了，非常感谢。还有一点问题就是使用SQL构造器查询数据后让所有数据都是展开状态，请问查询动作触发的事件是什么？

FBO · 发表于 2010-3-17 15:01:47

楼主，你可以在afteraction事件里写，判断是否点击了望远镜

		自动登录	找回密码
密码			立即注册