Главная страница
Навигация по странице:

  • Над каким элементом находится курсор мыши // поместите на форму Form1 компонент ListBox1 и напишите// следующий обработчик события OnMouseMove:void __fastcall

  • Как узнать количество строк(записей) int

  • SendMessage

  • ListBox (C Builder)


    Скачать 18.03 Kb.
    НазваниеListBox (C Builder)
    АнкорListBox (C Builder
    Дата15.09.2022
    Размер18.03 Kb.
    Формат файлаdocx
    Имя файлаListBox (C++ Builder).docx
    ТипДокументы
    #678162

    ListBox (C++ Builder)

    1. Над каким элементом находится курсор мыши

    2. Навигация в ListBox при множественном выборе

    3. Как сделать так, чтобы при наведении на элемент, длина которого больше длины самого ListBox, появлялся Hint

    4. Как узнать количество строк(записей)

    5. Прокрутка ListBox на одну строку вниз

    6. [+] Удаление выбранных элементов в TListBox

    1. Над каким элементом находится курсор мыши

      // поместите на форму Form1 компонент ListBox1 и напишите
      // следующий обработчик события OnMouseMove:
      void __fastcall TForm1::ListBox1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
      {
      if(ListBox1->ItemAtPos(TPoint(X, Y), true) != -1)
      Form1->Caption = ListBox1->Items->Strings[ListBox1->ItemAtPos(TPoint(X, Y), true)];
      }

    2. Навигация в ListBox при множественном выборе

      // разместите на форме ListBox1, установите у него
      // свойство MultiSelect в true, добавьте в ListBox1
      // несколько элементов, разместите также на форме
      // кнопку Button1, в обработчике события OnClick
      // которой напишите следующий код, который будет
      // выводить сообщение для каждого элемента ListBox,
      // выбранного пользователем:
      void __fastcall TForm1::Button1Click(TObject *Sender)
      {
      for(int i = 0; i < ListBox1->Items->Count; i++)
      if(ListBox1->Selected[i])
      ShowMessage(ListBox1->Items->Strings[i]);
      }

    3. Как сделать так, чтобы при наведении на элемент, длина которого больше длины самого ListBox, появлялся Hint

      // Где нибудь на показывании формы :
      Application->HintPause = 0;
      Application->HintShortPause = 0;
      Application->HintHidePause = 10000000000;
      Application->OnShowHint = TIn4Form->DoShowHint;



    4. void __fastcall TIn4Form::DoShowHint(System::AnsiString &HintStr, bool

    5. &CanShow, THintInfo &HintInfo)

    6. {

    7. CanShow = true;

    8. if (HintInfo.HintControl == ListBox1 )

    9. {

    10. if( Mouse->Capture )

    11. {

    12. CanShow = false;

    13. return;

    14. }

    15. HintInfo.ReshowTimeout = 100;

    16. /*HintInfo.HintColor = clAqua;// Changes only for this hint*/

    17. TPoint pnt;

    18. SIZE strsize;

    19. int numstr = ListBox1->ItemAtPos(HintInfo.CursorPos,true);

    20. if(numstr<0)

    21. {

    22. CanShow = false;

    23. Application->HideHint ();

    24. return;

    25. }

    26. HintStr = ListBox1->Items->Strings[numstr];

    27. strsize = ListBox1->Canvas->TextExtent(HintStr);

    28. if(strsize.cx<=ListBox1->ClientWidth)

    29. {

    30. CanShow = false;

    31. Application->HideHint ();

    32. return;

    33. }

    34. pnt.x = -1;

    35. pnt.y =

    36. int(HintInfo.CursorPos.y/ListBox3->ItemHeight)*ListBox1->ItemHeight - 3;

    37. pnt = ListBox3->ClientToScreen(pnt);

    38. HintInfo.HintPos.x = pnt.x;

    39. HintInfo.HintPos.y = pnt.y;

    40. HintInfo.HintMaxWidth = Screen->Width-pnt.x;

    41. /*HintInfo.HideTimeout = 100;*/

    42. }

    }

    // Не забудьте поставить ShowHint у интересующего ListBox-а


    1. Как узнать количество строк(записей)

    int i = ListBox1->Items->Count;

    1. Прокрутка ListBox на одну строку вниз

    // Чтобы прокрутить содержимое списка (TListBox) на одну
    // строку вниз, напишите следующий код:
    SendMessage(ListBox1->Handle, WM_VSCROLL, SB_LINEDOWN, 0);

    1. Удаление выбранных элементов в TListBox

    // Напишите следующий код:
    for(int i = ListBox1->Items->Count-1; i >= 0; i--)
    if(ListBox1->Selected[i])
    ListBox1->Items->Delete(i);

    Наверх


    написать администратору сайта