ListView
// для получения индекса выделенного элемента в TListView
// воспользукйтесь следующим кодом:
int Index = ListView1->Selected->Index;
// поместите на форму компонент ListView1, установите
// у него свойство ShowHint в true и напишите обработчик
// события OnMouseMove следующим образом:
void __fastcall TForm1::ListView1MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
TListItem *pListItem = ListView1->GetItemAt(X, Y);
if(pListItem) ListView1->Hint = pListItem->Caption;
}
// Напишите следующий код:
void __fastcall TForm1::ListViewData(TObject *Sender, TListItem *Item)
{
Item->Caption = AnsiString(Item->Index);
Item->SubItems->Add("комментарий");
}
// Это пропиши в дизайне:
ListView->OnData = ListViewData;
ListView->OwnerData = true;
// "Заполнение":
ListView->Items->Count = 20000000;
// Сброс:
ListView->Items->Count = 0;