Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.24;
Скачать: CL | DM;

Вниз

Сортировка в TListView   Найти похожие ветки 

 
Gregory   (2002-10-09 20:36) [0]

У меня в окне выводиться 3 поля с информацией: название, дата, отправитель. Это выводиться используя TListView. Необходимо по выбору сортировать соответствующее поле. Каким образом это можно сделать используя TListView? Спасибо за ответ.


 
Anatoly P   (2002-10-12 23:16) [1]

var ColumnToSort: Integer; сделай глобальной



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

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




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;




Страницы: 1 вся ветка

Текущий архив: 2002.10.24;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.015 c
14-78636
delta
2002-10-03 18:22
2002.10.24
Киньте свежых анекдотцев. Тема произвольная...


3-78216
RomanIz
2002-09-30 19:22
2002.10.24
Таблица в памяти


1-78499
msdn1
2002-10-13 18:03
2002.10.24
Richedit


4-78724
lds78
2002-08-05 08:51
2002.10.24
PopUp menu


8-78540
Mixan
2002-06-29 21:42
2002.10.24
Как проиграть несколько wav файлов один за одним?