Использование условных операторов в Object Pascal. Семенов Н.М. - 7 стр.

UptoLike

Составители: 

7
ModalResult mrCancel
OnClick BtnCloseClick
2.2 Ввод кода программы BUTTON1
Ниже приведены шаги, которые Вам надо проделать, чтобы ввести код
программы BUTTON1:
1. Дважды щёлкните мышью на кнопке Close. Система Delphi ответит Вам
созданием скелета обработчика событий BtnCloseClick. Появится редактор кода с
курсором, расположенным между словами begin и end.
2. Вставьте в обработчик событий BtnCloseClick следующий оператор:
Close
Теперь, если при работающей программе нажать на кнопку Close, форма
закроется и программа завершит работу.
3. Откройте окно Дизайнера форм, чтобы перейти в окно с формой; затем
дважды щёлкните мышью на кнопке BtnToggle.
Delphi создаст скелет обработчика событий BtnToggleClick. Опять появится редактор
кода с курсором, помещённым между словами begin и end.
4. Находясь в редакторе кода, введите следующий текст программы в созданный
Delphi обработчик событий BtnToggleClick:
if LblHint.Visible then
begin
LblHint.Visible:=False;
BtnToggle.Caption:='&Show';
end
else
begin
LblHint.Visible:=True;
BtnToggle.Caption:='&Hide';
end;
Только что введённая часть программы будет выполняться в ответ на нажатие
кнопки BtnToggle. Нажатие кнопки BtnToggle во время выполнения программы будет
включать и выключать текст подсказки LblHint. Этот эффект достигается
использованием условного оператора if.
Условие в операторе if проверяет, включен ли в данный момент текст подсказки
LblHint, по значению её свойства Visible. Если текст подсказки виден, то выполняются
операторы раздела if - then, который меняет Visible на False, тем самым убирая текст
подсказки с экрана. Одновременно с этим надпись на кнопке BtnToggle меняется с Hide
на Show.
Если же текст подсказки не виден, то выполняется раздел else, который изменяет
свойство Visible компонента LblHint на True и меняет надпись на кнопке BtnToggle с
Show на Hide.
2.3 Выполнение программы BUTTON1