ВУЗ:
Составители:
Рубрика:
12
Добавим на форму новый элемент - кнопку BitBtn1, клик по которой бу-
дет закрывать окно работающей программы. После выполнения примера
работы 1 кнопка будет иметь вид .
План примера 1
1-3. Добавление кнопки и изменение надписи на ней.
4. Изменение размера кнопки.
5-13. Изменение картинки на кнопке.
14-18. Написание обработчика события OnClick для кнопки.
19.
Изменение положения рисунка и надписи на кнопке.
20. Запуск программы на исполнение.
Пример работы 1: Подсказка
1. Добавьте на форму кнопку BitBtn1
Страница компонент Additional
2. Откройте свойства объекта BitBtn1
Выделите BitBtn1 на макете
3. Измените название кнопки
с Exit на Выход
Измените значение свойства Caption
4. Увеличьте размер кнопки
Потяните за черные маркеры вокруг кнопки
Попробуем теперь изменить картинку на кнопке BitBtn1. Изготовим
гравировку самостоятельно из какого-нибудь символа шрифта Wingdings
или Webdings, например, y
5. Откройте Word
Пуск|Программы|Microsoft Office|Microsoft Word
6. Вставьте символ y
(или другой)
Вставка|Символ. Шрифт Wingdings или Webdings.
Размер – 20 пт
7. Скопируйте символ в Буфер обмена
Ctrl+Insert
8. Откройте Paint
Пуск|Программы|Стандартные|Paint
9. Вставьте символ из Буфера обмена
Shift+Insert
10. Гравировку сохраните под
именем man.bmp
Выделите символ и скопируйте его в свою
папку (Правка|Копировать в файл)
11. Измените картинку
на кнопке BitBtn1
Найдите свойство Gliph. Нажмите справа
от значения свойства. В открывшемся диалого-
вом окне с помощью кнопки Load (загрузить)
укажите файл man.bmp и нажмите на кнопку ОК
12. Отобразите картинку
на кнопке целиком
Измените значение свойства NumGliph (часть
картинки) на 1
13. Запустите проект
Нажмите на кнопку
Попробуйте закрыть форму нажатием на кнопку, свойства которой Вы
меняли. Клик по кнопке пока не дает желаемый результат. Придется напи-
сать собственный обработчик события OnClick для кнопки BitBtn1, в кото-
рый надо включить одну команду Halt
(прекратить выполнение програм-
мы). Закройте окно работающей программы нажатием на крестик в правом
верхнем углу.
14. Откройте свойства объекта BitBtn1
Выделите BitBtn1 на макете
15. Перейдите на вкладку Events
Левый клик по ярлычку в Ин-
спекторе Объектов
