ВУЗ:
Составители:
Рубрика:
15
Для добавления обработчика событий для кнопки Add выполните следующие
шаги:
1. Дважды щёлкните в форме на кнопке Add (BtnAdd).
2. Вставьте во вновь созданный метод обработки событий
TFormMain.BtnAddClick код, приведённый в листинге 1.
Листинг 1. Обработчик события OnClick кнопки Add.
__________________________________________________________________________
1: procedure TFormMain.BtnAddClick(Sender: TObject);
2: begin
3: if EditItem.Text <> ''then begin
4: case (Notebook1.PageIndex+1) of
5: 1: LstJan.Items.Add(EditItem.Text);
6: 2: LstFeb.Items.Add(EditItem.Text);
7: 3: LstMar.Items.Add(EditItem.Text);
8: 4: LstApr.Items.Add(EditItem.Text);
9: 5: LstMay.Items.Add(EditItem.Text);
10: 6: LstJun.Items.Add(EditItem.Text);
11: 7: LstJul.Items.Add(EditItem.Text);
12: 8: LstAug.Items.Add(EditItem.Text);
13: 9: LstSep.Items.Add(EditItem.Text);
14: 10: LstOct.Items.Add(EditItem.Text);
15: 11: LstNov.Items.Add(EditItem.Text);
16: 12: LstDec.Items.Add(EditItem.Text);
17: end;
18: EditItem.Text:='';
19: end;
20: end;
___________________________________________________________________________
Строки листинга 1, которые Вы вставили в подпрограмму BtnAddClick,
приводят к добавлению содержимого окна редактирования EditItem - строки символов -
к окну списку той страницы Notebook1, которая в настоящий момент активна и видна
на экране.
Когда Вы дважды щелкнули на кнопке Add, Delphi cоздала только строки 1, 2 и
20 листинга 1. Строки с 3 по 19 Вам пришлось ввести самим.
Внутри блока begin - end процедуры BtnAddСlick стоят две вложенные
конструкции условного выбора. В строке 3 начинается оператор if, область видимости
которого, заключённая внутри пары ключевых слов begin - end, оканчивается в конце
процедуры на строке 19.
Оператор if проверяет, не является ли свойство Text в EditItem пустой строкой (в
строке 3 пустая строка указана, как два символа апострофа). Иными словами, условное
выражение оператора if принимает значение True, если внутри окна редактирования
EditItem есть текст.
Если пользователь что - нибудь введёт в окне редактирования, будет
выполняться содержимое оператора if - then - оператор case с двенадцатью
возможными вариантами, занимающий строки с 4 по 17. Этот оператор case призван
проиллюстрировать основное содержимое лабораторной работы.
