Компонент tListBox
TListBox |
|
В ряде случаев необходимо предложить пользователю выбор из одного или нескольких готовых ответов. Для этих целей применяется компонента TListBox. Если выводимый список не умещается в отведенном пространстве окна, то появляются вертикальный и/или горизонтальный скроллинг.
Основные свойства:
Items : TSrings;
С помощью этого свойства задается набор строк (список);
ItemIndex : Integer;
- индекс выделенного (сфокусированного) элемента (нумерация начинается с нуля);
Columns: LongInt;
- содержит количество столбцов (по умолчанию равно 1);
Sorted: Boolean;
- позволяет разрешать или отменять сортировку строк в алфавитном порядке.
Чтобы на стадии
проектирования занести информацию в
ListBox,
необходимо
выбрать свойство Items
и нажать
.
При этом будет вызван текстовый редактор.
Пример1.
Пусть требуется организовать выбор фамилий из списка.
Для набора фамилий активизируем текстовый редактор с помощью свойства Items. Предположим, что необходимо выбранную фамилию из списка выводить в компоненту Label.
unit U4;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type
TForm2 = class(TForm)
ListBox1: TListBox;
Label1: TLabel;
Label2: TLabel;
procedure FormCreate(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.DFM}
procedure TForm2.FormCreate(Sender: TObject);
begin
ListBox1.ItemIndex := 0;
Label1.Caption := ListBox1.Items[ListBox1.ItemIndex];
end;
procedure TForm2.ListBox1Click(Sender: TObject);
begin
Label1.Caption := ListBox1.Items[ListBox1.ItemIndex];
end;
end.
Компонент tComboBox
TComboBox |
|
Эта компонента представляет собой комбинированный список, составленный из TEdit и TListBox, и как следствие этого он совмещает свойства строкового редактора и списка.
Существует 5 модификаций компонента TComboBox. Эти модификации устанавливаются с помощью свойства Style:
Style := csSimple – простой комбинированный список (рис.2).
Во всех остальных случаях компонент TComboBox представляется в свернутом виде.
Когда
Style := csDropDown;
с помощью кнопки раскрытия списка компонент TComboBox представляется в виде Simple. При этом имеется возможность в поле Edit вводить произвольную информацию.
В случае, когда:
Style := csDropDownList;
список также раскрывается кнопкой, но Edit работает только в режиме выбора информации из ListBox.
Компонент TComboBox имеет обработчики OnChange, OnClick (по умолчанию – OnChange).
Пример.
Пусть требуется из компонента TComboBox выбирать информацию и показывать ее в компоненте TEdit.
В обработчике ComboBox1Change будет следующий оператор:
Edit1.Text := ComboBox1.Text;
или
Edit1.Text := ComboBox1.Item[ComboBox1.ItemIndex];