ListBox (C Builder)

• Название: ListBox (C Builder)
• Анкор: ListBox (C Builder
• Дата: 15.09.2022
• Размер: 18.03 Kb.
• Имя файла: 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. 
   
   
5. 
   void __fastcall TIn4Form::DoShowHint(System::AnsiString &HintStr, bool
   
6. 
   &CanShow, THintInfo &HintInfo)
   
7. 
   {
   
8. 
   CanShow = true;
   
9. 
   if (HintInfo.HintControl == ListBox1 )
   
10. 
    {
    
11. 
    if( Mouse->Capture )
    
12. 
    {
    
13. 
    CanShow = false;
    
14. 
    return;
    
15. 
    }
    
16. 
    HintInfo.ReshowTimeout = 100;
    
17. 
    /*HintInfo.HintColor = clAqua;// Changes only for this hint*/
    
18. 
    TPoint pnt;
    
19. 
    SIZE strsize;
    
20. 
    int numstr = ListBox1->ItemAtPos(HintInfo.CursorPos,true);
    
21. 
    if(numstr<0)
    
22. 
    {
    
23. 
    CanShow = false;
    
24. 
    Application->HideHint ();
    
25. 
    return;
    
26. 
    }
    
27. 
    HintStr = ListBox1->Items->Strings[numstr];
    
28. 
    strsize = ListBox1->Canvas->TextExtent(HintStr);
    
29. 
    if(strsize.cx<=ListBox1->ClientWidth)
    
30. 
    {
    
31. 
    CanShow = false;
    
32. 
    Application->HideHint ();
    
33. 
    return;
    
34. 
    }
    
35. 
    pnt.x = -1;
    
36. 
    pnt.y =
    
37. 
    int(HintInfo.CursorPos.y/ListBox3->ItemHeight)*ListBox1->ItemHeight - 3;
    
38. 
    pnt = ListBox3->ClientToScreen(pnt);
    
39. 
    HintInfo.HintPos.x = pnt.x;
    
40. 
    HintInfo.HintPos.y = pnt.y;
    
41. 
    HintInfo.HintMaxWidth = Screen->Width-pnt.x;
    
42. 
    /*HintInfo.HideTimeout = 100;*/
    
43. 
    }
    

}

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

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

int i = ListBox1->Items->Count;

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

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

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

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

Наверх