就是点击标题栏时,可能对这一列进行相并应条件的排序,可以吗?希望来点完整的代码,谢谢!
解决方案 »
- FastReport 4 VCL Enterprise Edition: 4.12.6
- 各位高手,请问这段代码为什么导不入注册表。只显示未知的数据类型,谁帮我修正一下呀。
- Delphi 数据库系统开发的问题(数据库控件使用和MySQL相关)
- 没分了,在问个问题,如何写这样的查询?
- 传奇封包加/解密代码,请求转换vb,谢谢。
- 菜鸟问题,100分相送!
- 请问大虾们query的多表交叉查询能用UpDateSQL来更新不同表中的数据吗?
- 怎样判断一个FORM是否SHOW状态啊?
- 一个窗口激活的代码,无法编译,高手指教下。
- 各位高手,为什么我在用NMUDP发送数据时当接收端程序没有启动的时候总是提示Stream Write Error,是什么原因,怎么才能让这个错误提示不出现
- Delphi里有几种弹出对话框,带的参数是怎么样的???
- 如何取得另外一个进程当前焦点控件的文本内容?
procedure TForm1.Button1Click(Sender: TObject);
var
int:integer;
Node:TTreeNode;
begin
Node:=TreeView1.Items.Add(nil,'添加如下');
for Int:=0 to 9 do
begin
TreeView1.Items.AddChild(Node,inttostr(int));
end;
end;
begin
Result := -CompareText(Item1.Caption,Item2.Caption);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ListView1.CustomSort(@CustomSortProc, 0);
end;