LISTVIEW可以排序嗎? |
|
尚未結案
|
|
gavinj123
初階會員   發表：88 回覆：48 積分：27 註冊：2002-10-15 發送簡訊給我 |
|
|
solnone
中階會員 發表：2 回覆：97 積分：69 註冊：2003-05-06 發送簡訊給我 |
找一下delphi的help "OnColumnClick" 就有example 了 var ColumnToSort: Integer; procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn);
begin
ColumnToSort := Column.Index;
(Sender as TCustomListView).AlphaSort;
end;
// 寫 OnCompare 事件
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;
|
|
gavinj123
初階會員 發表：88 回覆：48 積分：27 註冊：2002-10-15 發送簡訊給我 |
|
|
pgdennis
資深會員 發表：41 回覆：526 積分：443 註冊：2002-05-23 發送簡訊給我 |
發表時間：2003-12-03 16:28:08
IP:211.75.xxx.xxx 未訂閱
系統時間：2024-11-23 11:57:46
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |