Страница 43 из 96
Всплывающие подсказки в ListBox при наведении мыши на элемент списка
Поместите на форму компонент TListBox (ListBox), установите у него свойство ShowHint в true и напишите обработчик события OnMouseMove следующим образом:void __fastcall TForm1::ListBox1MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
static int OldIndex = -1;
int Index = ListBox1->ItemAtPos(Point(X, Y), true);
if((Index > -1) && (Index != OldIndex))
{
ListBox1->Hint = ListBox1->Items->Strings[Index];
Application->ActivateHint(Mouse->CursorPos);
}
OldIndex = Index;
}