盒子论坛 v2.1

ListBox的Sorted属性可实现简单排序；
如果你要实现按需排序，则可用ListView来实现，你只要使用ListView的CustomSort就可以了，具体实现请参看帮助。
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/2/6 13:28:20

4楼：

3楼对级了
把LISTVIEW只做一个列把列头隐藏起来，看上去就象LISTBOX

然后：
var ColumnToSort: Integer;

The OnColumnClick event handler sets the global variable to indicate the column to sort and calls AlphaSort:

procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn);

begin
  ColumnToSort := Column.Index;
  (Sender as TCustomListView).AlphaSort;
end;

The OnCompare event handler causes the list view to sort on the selected column:

procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);
var
  ix: Integer;
begin
  if ColumnToSort = 0 then
    Compare := CompareText(Item1.Caption,Item2.Caption)
  else begin
   ix := ColumnToSort - 1;
   Compare := CompareText(Item1.SubItems[ix],Item2.SubItems[ix]);
  end;

end;
----------------------------------------------

作者：

blueyestar (蓝夜孤星)	★☆☆☆☆	-
	盒子活跃会员

2004/2/6 19:05:48

5楼：

thanks!
----------------------------------------------
真正的程序员用C，聪明的程序员用DELPHI

作者：

blueyestar (蓝夜孤星)	★☆☆☆☆	-
	盒子活跃会员

2004/2/6 19:14:55

6楼：

Bios大大，你那种方法只能让它升序排列呀，怎样让其即可升序又可降序呢？
----------------------------------------------
真正的程序员用C，聪明的程序员用DELPHI

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/2/6 20:20:04

7楼：

呵呵：）

可以用个变量控制啊：

procedure TForm1.lvwebaddressColumnClick(Sender: TObject;
  Column: TListColumn);
begin
GPaiXu:=not GPaiXu;
ColumnToSort := Column.Index ;
PTCategory(tvfenlei.Selected.data)^.HSortColumn:=  ColumnToSort ;
lvwebaddress.AlphaSort ;
DDC.IsEdited :=true;
end;

procedure TForm1.lvwebaddressCompare(Sender: TObject; Item1,
  Item2: TListItem; Data: Integer; var Compare: Integer);
var
  ix,order: Integer;

begin
try    //防止列还未加入是比较导致数组过解

  if GPaiXu then order:=1 else order:=-1;
  PTCategory(tvfenlei.Selected.data)^.HSortMode:=GPaiXu;
if FAdding = false then
begin
  if ColumnToSort = 0 then
    Compare := CompareText(Item1.Caption,Item2.Caption)*order
  else begin
    ix := ColumnToSort - 1;
    Compare := CompareText(Item1.SubItems[ix],Item2.SubItems[ix])*order;
  end;
end;
except
end;

end;

----------------------------------------------

作者：

blueyestar (蓝夜孤星)	★☆☆☆☆	-
	盒子活跃会员

2004/2/7 13:55:38

8楼：

PTCategory(tvfenlei.Selected.data)^.HSortColumn:= ColumnToSort
DDC.IsEdited :=true;
PTCategory(tvfenlei.Selected.data)^.HSortMode:=GPaiXu;

bios大大，这几行是干啥用的呀？

小弟我刚学没多久，看不懂呀！！！
----------------------------------------------
真正的程序员用C，聪明的程序员用DELPHI

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/2/7 14:27:25

9楼：

不好意思，这是偶自己本身产品的代码，你把他去掉就可以了！
----------------------------------------------

信息

登陆以后才能回复