Borland C++ Builder VCL FAQ - Всплывающие подсказки в ListBox при наведении мыши на элемент списка

Written on 29 Декабря 2006. Posted in C++ Builder

ОГЛАВЛЕНИЕ

Страница 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;
  }

< Назад

форум c++ builder