请教各位大侠：Tlistview中排序时如何指示Columnheader中有指示排序的小图标？

TListView好像自身没有带指示升降序的图标，需要你自己按实际情况来设定ImageIndex，如在OnColumnClick纪录哪个Column排序了，在OnCompare写排序结果。 dev express公司的TListView有自动排序和排序的小图标。     久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听

------
江上何人初见月，江月何年初照人

Xiaolong 你好: 1.在TreeView1上面Images加入一個ImageList1 2.在ImageList1按滑鼠右鍵,選擇ImageList Editor-->ADD-->選擇好圖加入 3.在TreeView1上面按滑鼠右鍵,注意Image Index,也可以在程式中指定 TreeView1.TopItem.ImageIndex:=0;

------
======================
昏睡~
不昏睡~
不由昏睡~

谢谢你们! 有下面问题请教。 我写了下面的代码，可以看到Columns的Header上有图标了，但是显示在左边，我找不到图标显示到右边的属性，怎样才能可以显示到右面! ListView1.ViewStyle := vsReport; ListView1.SmallImages := ImageList1; ListView1.Columns[0].ImageIndex := 0;

谢谢你们! 有下面问题请教。 我写了下面的代码，可以看到Columns的Header上有图标了，但是显示在左边，我找不到图标显示到右边的属性，怎样才能可以显示到右面! ListView1.ViewStyle := vsReport; ListView1.SmallImages := ImageList1; ListView1.Columns[0].ImageIndex := 0;

引言: 谢谢你们! 有下面问题请教。 我写了下面的代码，可以看到Columns的Header上有图标了，但是显示在左边，我找不到图标显示到右边的属性，怎样才能可以显示到右面! ListView1.ViewStyle := vsReport; ListView1.SmallImages := ImageList1; ListView1.Columns[0].ImageIndex := 0;

没属性可以用，麻烦一点，自己在 src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10543105&CC=235795"> 久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听

谢谢你了，我试试看。

ListView1 原来还有个Header :) 取Header的句柄，然后可以画，我大概写了一个简单的，代码如下：    procedure TForm1.ListView1CustomDraw(Sender: TCustomListView;   const ARect: TRect; var DefaultDraw: Boolean); var   HeaderHander: THandle;   tmpCanvas: TCanvas;   tmpDC: HDC;   tmpIcon: TIcon; begin   HeaderHander := SendMessage(ListView1.Handle ,LVM_GETHEADER,0,0);   if HeaderHander <> 0 then   begin     tmpDC := GetDC(HeaderHander);     tmpCanvas := TCanvas.Create ;     tmpCanvas.Handle := tmpDC;     tmpIcon := TIcon.Create ;     ImageList1.GetIcon(1,tmpIcon);     tmpCanvas.Draw(ListView1.Columns[0].Width - 20,0,tmpIcon);     tmpIcon.Free ;     tmpCanvas.Free ;     ReleaseDC(HeaderHander,tmpDC);   end; end;    谢了mustapha.wang    

引言: 谢谢你了，我试试看。