Стр. 103 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
103
бытие OnKeyPress. В выпадающем списке выберем процедуру EditKeyPress
(рис. 6.10).
Рис. 6.9 Рис. 6.10
Таким же образом назначим процедуру EditKeyPress событию
OnKeyPress для всех остальных полей Edit3..Edit8.
11. Создадим процедуру Button1Click для обработки события OnClick
для кнопки Button1 . Оформим процедуру Button1Click следующим образом.
//процедуравыполняется при щелчке по кнопке Button1
procedure TForm1.Button1Click(Sender: TObject);
var
//прибыль
s:real;
begin
//проверка полей на заполненность
if (Edit1.Text='') or (Edit2.Text='') or
(Edit3.Text='') or (Edit4.Text='') or
(Edit5.Text='') or (Edit6.Text='') or
(Edit7.Text='') or (Edit8.Text='') then
begin
//если одно или несколько полей не заполнены,
//то вывод сообщения
ShowMessage('Необходимо заполнить все поля!!!');
//выход из процедуры
Exit;
end
//если все поля заполнены