Вторник, 12.11.2019, 17:00
Главная | Регистрация | Вход Приветствую Вас Гость | RSS


Меню сайта


Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0


Тестування онлайн
тестування онлайн 


Социальные закладк

Тема. Список, що розкривається. Властивості  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;

Список, що розкривається.  Алгоритми з розгалуженням.

Форма входа
Поиск
Календарь
«  Ноябрь 2019  »
ПнВтСрЧтПтСбВс
    123
45678910
11121314151617
18192021222324
252627282930
Архив записей
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

  • Рейтинг@Mail.ru
    Copyright MyCorp © 2019
    Конструктор сайтов - uCoz