Як можна використовувати "випадають списки" в delphi (combobox)?

Зміст

Як можна використовувати
Вікно програми

Отже, буває, що в об'єктно-орієнтованої мови програмування Delphi використовуються випадають списки, які за своїми розмірами займають на формі не так багато місця, для цих цілей використовується компонент ComboBox. Нижче буде показаний один з варіантів використання таких випадаючих списків.

Інструкція

Рівень складності: Нескладно

1 крок

Як можна використовувати
Розмістіть всі ці компоненти на формі приблизно так

Створіть нову форму у вашій програмі Delphi. Потім скиньте на неї такі компоненти: три 'Button'a, і по одному' Edit'u і 'ComboBox'u. Всі перераховані компоненти знаходяться у вкладці Standard.

2 крок




Очистіть властивість caption як у 'Edit'a, так і' ComboBox'a. А у кнопок змініть дане властивість на наступне: "Додати", "Видалити", "Очистити". Та й до речі, якщо хочете, можете змінити дане властивість і в самої форми, наприклад на "Випадаючий список".

3 крок

На цьому кроці створіть обробник для вашого списку - onchange. І впишіть туди наступний код:
begin
Edit1.Text: = ComboBox1.Items.Strings [ComboBox1.ItemIndex]
end;

Тобто в "Edit" e відображатиметься саме той рядок, яку ви виділите у вашому випадаючому списку.

4 крок

Впишіть у ваші кнопки наступні програмні коди:

В "Додати" -
begin
ComboBox1.Items.Add ('Новий рядок') -
end;

В "Видалити" -
begin
ComboBox1.Items.Delete [ComboBox1.ItemIndex] -
end;

В "Очистити" -
begin
ComboBox1.Items.Clear-
end;

5 крок

Впишіть у властивість Items у ComboBox будь-який список, наприклад:
1
2
3
4
5
і так далі.

6 крок

У властивості style у списку ви можете змінювати його стиль.

7 крок

Як можна використовувати
Ось так в підсумку буде виглядати ця програма

Ось в підсумку готова невелика програма, у вигляді списку. Залишилося тільки запустити її! Запустити ви її можете як за допомогою клавіші F 9, так і за допомогою зелененький стрілочки на верху програми. Запустивши програму - перевіряєте її на працездатність!







» » Як можна використовувати "випадають списки" в delphi (combobox)?