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

UptoLike

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

14
4. Нажав клавишу Shift, щёлкните на пиктограмме кнопки на странице Standard
палитры компонентов. В дополнение к пиктограмме кнопки, которая теперь выглядит
нажатой, вокруг пиктограммы появится прямоугольник из точек, указывающий на
специальный режим курсора мыши. В этом режиме Вы можете разместить несколько
компонентов последовательно, не выбирая их каждый раз на палитре.
5. Отпустите клавишу Shift. Щёлкните кнопкой мыши три раза подряд внутри
группового окна в форме. При каждом щелчке в форму будет добавляться кнопка. Пока
что не беспокойтесь о положении этих кнопок или об их правильном выравнивании.
Вы всегда сможете настроить эти визуальные характеристики позднее. Обратите
внимание на то, что выделение пиктограммы кнопки на палитре не
отменяется
автоматически.
6. После третьего щелчка мыши остановитесь. Специальный курсор Вашей
мыши всё ещё включен, но Вам не нужны больше кнопки. Вы должны явным образом
отменить выбор активного компонента, щёлкнув для этого на самой левой пиктограмме
со стрелкой в палитре компонентов Delphi. Ваша мышь снова будет работать как
обычный указатель.
7. Теперь отмените
выбор кнопки.
Итак, Вы поместили в свою форму, в группирующее окно, три кнопки. Delphi
назвала эти кнопки Button1, Button2 и Button3. Измените их свойства следующим
образом:
1. Смените имя (т.е. свойство Name) компонента Button1 на BtnAdd и его
свойство Caption на &Add.
2. Смените имя компонента Button2 на BtnChange и его свойство Caption на
&Change.
3. Смените имя компонента Button3 на BtnDelete и его свойство Caption на
&Delete.
Для окончательного оформления внешнего вида главной формы сделайте
следующее:
1. Поместите компонент BitBtn в свободное место формы, вне блокнота и
группирующего окна.
2. Смените свойство Name только что добавленного компонента BitBtn1 на
BtnClose, его свойство Kind на bkCancel и его свойство Caption на Close.
4.7 Добавление поведения кнопки Close
Чтобы обеспечить функционирование кнопки Close, выполните следующие
шаги:
1. Дважды щёлкните в Дизайнере форм на последней из добавленных кнопок -
BtnClose. При этом Delphi создаст пустой обработчик событий OnClick, назвав его
TFormMain.BtnCloseClick.
2. Введите в редактор кода между словами begin и end в новом обработчике
событий следующий оператор:
Close;
Этот оператор придаёт форме специфическое поведение - теперь, когда пользователь
щёлкнет на кнопке Close, форма закроется и программа прекратит свою работу.
4.8 Добавление обработчика событий OnClick для кнопки Add