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

Информатика. Программирование в Delphi
70
Таблица 4.2
Событие Условие возникновения
OnClick При щелчке мышью
OnMouseDown При нажатии кнопки мыши
OnMouseUp При отпускании кнопки мыши
OnMouseMove При перемещении мыши
OnKeyPress При нажатии клавиши клавиатуры
OnKeyDown При нажатии клавиши клавиатуры
OnKeyUp При отпускании нажатой клавиши клавиатуры
OnEnter При получении элементом управления фокуса
OnExit При потере элементом управления фокуса
Пример 4.1
Разработать приложение. Форма имеет заголовок Социальный опрос и
содержит следующие компоненты:
− метка с заголовком Довольны ли Вы своей зарплатой?
− две кнопки Да и Нет.
При нажатии на кнопку Да приложение должно показывать диалог с тек-
стом Мы так и думали, а при наведении курсора мыши на кнопку Нет кнопка
Нет должна произвольным образом менять свои координаты, уклоняясь от воз-
можности произвести щелчок на ней.
Как вы догадываетесь, работа этой программы носит юмористический
характер.
Рекомендуемый вид формы показан на рис. 4.2.
Рис. 4.2
Выполним следующую последовательность действий.
1. Создадим новое приложение: File →New →Application.
Остальные действия выполняются в инспекторе объектов.
2. Изменим заголовок у формы Form1 (свойство Caption) на Социаль-
ный опрос.
3. Установим ширину формы Form1 (свойство Width) в 400 пикселей.
4. Установим высоту формы Form1 (свойство Height ) в 200 пикселей.
5. Установим цвет формы Form1 (свойство Color ) в clAqua (голубой).
6. Установим стиль границ формы (свойство BorderStyle) в bsSingle.
7. Установим свойство BorderIcons (кнопки управления формой) формы