Тема. Список, що розкривається. Властивості ComboBox.
Окрім текстового поля, яке може містити тільки одне значення, на екранних формах розміщують також елемент управління список, який дає змогу обрати одне значення із запропонованого переліку. У середовищі Lazarus створити список, що розкривається, можна за допомогою компонента ComboBox.
Для розміщення на формі поля з розкривним списком потрібно двічі клацнути на кнопці TComboBox (англ. combobox - поле зі списком) на вкладці Standard з компонентами.

Після цього поле з розкривним списком з'явиться у верхній лівій частині форми, а його ім'я додасться до списку компонентів проекту в полі Компоненти вікна Інспектор об'єктів.
За потреби поле з розкривним списком можна перетягнути в будь-яке інше місце форми.
Cписок рядків елемента керування ComboBox спочатку прихований і розкривається при натисканні мишею трикутничка розкриття, який знаходиться праворуч у рядку введення.
Значення властивостей поля з розкривним списком можна використати в логічному виразі в команді розгалуження.
- Властивості Top, Left, Height, Width, Name, Color, Enabled, Visible, Font, Text поля з розкривним списком повністю аналогічні до відповідних властивостей поля.
- Додаткові властивості:

Вправа 7
Задати вміст розкривного списку можна в вікні Редактора рядків, яке відкривається вибором кнопки праворуч від поля Items вкладки Властивості.
- Вміст редактора з'явиться в списку елемента ComboBox на формі.

Як вивести до текстового поля номер вибраного рядка списку ComboBox?
Варіант виконання:


Як вивести до текстового поля текст із вибраного рядка списку ComboBox?
Варіант виконання:
У ході виконання програми можна вводити значення в текстове поле ComboBox (властивість Text) і додавати введене значення до списку ComboBox за допомогою методу Add:
ComboBox1.Items.Add(ComboBox1.Text);
Варіант виконання:


|
procedure TForm1.ComboBox1Change(Sender: TObject);
var s: String; n: Integer;
begin
n := ComboBox1.ItemIndex;
s := ComboBox1.Items[n];
Edit1.Text := inttostr(n);
Edit2.Text := s;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ComboBox1.Items.Add(edit3.Text);
end;
|
Список, що розкривається. Алгоритми з розгалуженням.
|