請問有什麼control可以有很多column,然後給我像listbox一樣,可以當array去記錄,然後由program到read回呢? (註:隨了grid外)

引言: 請問有什麼control可以有很多column,然後給我像listbox一樣,可以當array去記錄,然後由program到read回呢? (註:隨了grid外)

Delphi內建的ListView元件可以達到你要的需求

首先多謝你的解答,但我從來未用過listview,我找不到有什麼property可以設定其column,而且我想知道如何在design time時就把我要的value加進去?

可能是我不太懂如何使用listview,我發現它和treeview相似,可以有subitem,但不能做到我想要的,就是像grid一樣可以有自己的column,在每一個column或cell到加上value???

根據自己的需求, 自己寫元件吧!

Sorry,已經知道如何去做,但我想另外附加一條問題?ListView可以有sorting? 請問是怎樣做的?

引言: Sorry,已經知道如何去做,但我想另外附加一條問題?ListView可以有sorting? 請問是怎樣做的?

設定ListView的SortType屬性, 細節如下: TListView.SortType Determines if and how the items in the list are automatically sorted. type TSortType = (stNone, stData, stText, stBoth); property SortType: TSortType; Description Set SortType to specify the order of items in the list. If SortType is not stNone, the list items in the Items property are automatically sorted. Once a list view is sorted, the original order is lost. That is, setting the SortType back to stNone will not restore the original order of items. These are the possible values: Value Meaning stNone No sorting is done. stData Items are sorted based on the Data property of the TListItem objects. An OnCompare event handler must be provided to compare Data values. stText Items are sorted based on the Caption property of the TListItem objects. stBoth Items are sorted based on both the Data and Caption properties of the TListItem objects. The Data values are ignored unless an OnCompare event handler is provided.

我想問下什麼是base on caption property "stText"?

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) ListView1: TListView; Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); procedure ListView1ColumnClick(Sender: TObject; Column: TListColumn); procedure ListView1Compare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer); private { Private declarations } public { Public declarations } columntosort: INteger; flag: boolean; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text := ListView1.Items[0].SubItems[5]; end; procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn); begin ColumnToSort := Column.Index; ListView1.AlphaSort; end; procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer); var ix: Integer; begin //if ColumnToSort = 0 then if flag = true then begin flag := false; Compare := CompareText(Item1.Caption,Item2.Caption) end else begin flag := true; Compare := -CompareText(Item1.Caption,Item2.Caption) end; //else begin //ix := ColumnToSort - 1; //Compare := CompareText(Item1.SubItems[ix],Item2.SubItems[ix]); //end; end; end. 我不知道應該如何去設定sortStyle,我只想如果按某一個column時,我可以由字母小至大,或大至少排,當然這個sorting,不只是移動一個column,而是整條record,請問怎麼做? 另外有一個問題想問:請問有沒有方法可以像grid一樣有fix column?我想固定某一個column,讓record第一格不是data,可以嗎

引言: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) ListView1: TListView; Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); procedure ListView1ColumnClick(Sender: TObject; Column: TListColumn); procedure ListView1Compare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer); private { Private declarations } public { Public declarations } columntosort: INteger; flag: boolean; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text := ListView1.Items[0].SubItems[5]; end; procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn); begin ColumnToSort := Column.Index; ListView1.AlphaSort; end; procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer); var ix: Integer; begin //if ColumnToSort = 0 then if flag = true then begin flag := false; Compare := CompareText(Item1.Caption,Item2.Caption) end else begin flag := true; Compare := -CompareText(Item1.Caption,Item2.Caption) end; //else begin //ix := ColumnToSort - 1; //Compare := CompareText(Item1.SubItems[ix],Item2.SubItems[ix]); //end; end; end. 我不知道應該如何去設定sortStyle,我只想如果按某一個column時,我可以由字母小至大,或大至少排,當然這個sorting,不只是移動一個column,而是整條record,請問怎麼做? 另外有一個問題想問:請問有沒有方法可以像grid一樣有fix column?我想固定某一個column,讓record第一格不是data,可以嗎

我不知道應該如何去設定sortStyle. 直接從IDE上設定ListView的SortStyle屬性. 我只想如果按某一個column時,我可以由字母小至大,或大至少排,當然這個sorting,不只是移動一個column,而是整條record,請問怎麼做? ListView可以攔Column被Click的事件, 你可以在攔到後, 自行做Sort的動作, ListView預設不支援這種功能 請問有沒有方法可以像grid一樣有fix column?我想固定某一個column,讓record第一格不是data,可以嗎 ListView沒有這種功能 你可以用ElTree, ElTree可以在Click Column時自動幫你Sort, 去網路Search ElTree 應該可以找到. 不過ElTree好像不支援fix column, 你自己在試試