Страница 42 из 96
Всплывающие подсказки в ListView при наведении мыши на элемент списка
Поместите на форму компонент TListView (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;
}