Комбинированный список (ComboBox)

Специфичные свойства

Columns ‑ задает число колонок (N) в области списка (N). Если N=0, выводится одна колонка с вертикальной полосой прокрутки (можно вывести еще и горизонтальную полосу, как в примере), иначе - выводится N колонок с горизонтальной линейкой прокрутки.

TopIndex ‑ программно задается номер строки, отображаемой вверху области.

Style ‑ стиль изображения списка: lbStandard (обычный), lbOwnerDrawFixed (список рисуется пользователем, строки фиксированной высоты, определяемой свойством ItemHeight), lbOwnerDrawVariable (список рисуется пользователем, строки разной высоты).

Примеры:

Var i:integer;... //формирование списка строками «0», «1», «2», «3», «4»,...

For i:=0 to Listbox1.Items.Count‑1 Do ListBox1.Items[i]:=IntToStr(i);//цикл

ListBox1.Items.SaveToFile('c:\кадры.txt'); //вывод списка в файл (п.2.1.9)

ListBox2.Items.LoadFromFIle('c:\кадры.txt');//загр. списка из файла (п.2.1.9)

ListBox2.Selected[4]:=True; //программный выбор пятой строки

Label3.Caption:=’Номер выбранной строки ‘+IntToStr(ListBox2.ItemIndex);

Label4.Caption:=’Выбранная строка ‘+ListBox2.Items[ListBox2.ItemIndex];

ListBox1.Items.Assign(StringGrid1.Cols[2]);//копирования колонки в список

Вывод вертикальной и горизонтальной полос прокрутки.

Procedure TForm1.FormCreate(Sender:TObject); //cобытие формы OnCreate

Begin ListBox1.Columns:=0; //одна колонка с вертикальной полосой

SendMessage(ListBox1.Handle,lb_SetHorizontalExtent,1000,0); End;

Функция SendMessage (п.1.7.10) посылает окну ListBox1.Handle сообщение о выводе горизонтальной полосы прокрутки (код сообщения lb_SetHorizontalExtent), максимальной длиной 1000 пикселей (что заведомо больше для обязательного вывода полосы). Последний параметр (0) может быть любым.

Комбинированный список позволяет выбирать одну строку из списка или непосредственно вво­дить ее в поле ввода. Допускается только верти­кальная полоса прокрутки.

Дата добавления: 2014-12-08