Программы и модули Delphi. Семенов Н.М. - 6 стр.

UptoLike

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

13. Выберите файл Geometrix из каталога WNT или WINDOWS. Вы можете
выбирать любой другой файл .bmp в любой другой директории. Конечно, различные
файлы .bmp отобразят на кнопке различные изображения.
14. Нажмите кнопку ОК в диалоговом окнеРедактор картинки”.
15. Нажмите свойство Name в Инспекторе объекта. Имя управляющего элемента
по умолчанию - BitBtn1. Удалите это имя и напечатайте CloseBtn.
16. Нажмите табличку страницыСобытия в Инспекторе объектов. Система
Delphi показывает список событий, которые могли бы быть связаны с разрядной
кнопкой.
17. Нажмите два раза на событии OnClick. (Нажимать надо на правом чистом
белом поле). Система Delphi отображает окно UNIT1 (рис. 3) и помещает курсор для
вставки текста внутри процедуры TForm1.CloseBtnClick.
Рис.3. Окно UNIT1.
18. Напечатайте два следующих оператора:
MessageDlg(‘Close form’, mtInformation, [mbOK],0);
Close;
1.2 Сохранение файлов проекта
Сначала сохраняется модуль по опцииФайл/ Сохранить как”. Система Delphi
отображает диалоговое окно с заголовкомСохранить Unit1 как”. Выберите личную
поддиректорию и затем введите имя UBUTTON.PAS в окошко редактирования File
Name.
Чтобы сохранить проект, выберите опциюФайл/ Сохранить проект как” .
Система Delphi отображает диалоговое окно с заголовкомСохранить Project1 как”.
Выберите личную поддиректорию и затем введите имя BUTTON.DPR в окошке
редактирования File Name.
1.3 Выполнение программы BUTTON