有些時候我們在使用Delphi7的Listview過程中總是要改一些預設的設置，現在把它們集中起來匯總如下。
MultiSelect := True; 讓Listview可以同時選擇多行
GridLines := True; 讓Listview顯示格線
ViewStyle := vsReport; 顯示資料項目的詳細列表
HideSelection := True; 使listview失去焦點時,選中行不高亮
//設定顏色procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);var subRect, itemRect: TRect; i, SubedItem: Integer;begin); then begin Sender.Canvas.Font.Color := clRed; //選取行字體顏色Sender.Canvas.Brush.Color := clgray; //clGreen; 選取行高亮顏色end else begin Sender.Canvas.Font.Color := clNavy ; //正常行字體顏色Sender.Canvas.Brush.Color := clWhite; //正常行高亮顏色end; itemRect := Item.DisplayRect(drLabel); subRect := itemRect; for SubItem := 0 to (Sender as TListView).Columns.Count - 1 do begin subRect.Left := itemRect.Left; for i := 1 to Item .Left := subRect.Left + (Sender as TListView).Column[i - 1].Width; subRect.Right := subRect.Right + SubRect.Left + (Sender as TListView).Column[i].Width; end; if SubItem = 0 then begin subRect.Right : = subRect.Right + 2; Sender.Canvas.TextRect(subRect, subRect.Left, subRect.Top, Item.Caption); end else Sender.Canvas.TextRect(subRect, subRect.Left, subRect.Top, Item.SubItems[SubItem - 1]); end;end;
//排序功能private { Private declarations } SortCol: Integer; SortWay: Integer; procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn);begin SortCol := Column.Index; if; 1 else SortWay := 1; (Sender as TCustomListView).AlphaSort;end;procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);var t: Integerare;Colbegin if (Sorteger; var Compare: Integer);var t: Integerare;Colgin if (Sortgin = 0) then begin Compgin) := SortWay * CompareText(Item1.Caption, Item2.Caption); end else begin t := SortCol - 1; Compare := SortWay * CompareText(Item1.SubItems[t], Item2.SubItems[t]); end;end;這個功能有一個問題：數字排序會依照字元類似排，例如：1,10,102,3,34,356......有興趣的讀者可以加以完善