§ 5. Визуальная среда разработки программ
Упражнения
1. Создайте проект, в котором при клике мыши по форме она будет перемещаться в левый верхний угол экрана.
- Создайте и сохраните в новой папке проект.
- Измените свойство Caption у формы на Упражнение 1.
- Создайте обработчик события мыши OnlClick.
- Для изменения местоположения формы можно воспользоваться командами:
Form1 -> Left = 0;
Form1 -> Top = 0; - Сохраните изменения в проекте.
- Запустите проект и проверьте его работу.
2. Создайте проект, в котором при двойном клике мыши по форме ее размеры будут увеличиваться на 5.
- Создайте и сохраните в новой папке проект.
- Измените свойство Caption у формы на Упражнение 2.
- Создайте обработчик события мыши OnDblClick.
- Для изменения ширины и высоты формы можно воспользоваться командами:
Form1 -> Width += 5;
Form1 -> Height += 5; - Сохраните изменения в проекте.
- Запустите проект и проверьте его работу.
3. Создайте проект, в котором цвет формы будет меняться при наведении на нее мыши, например с желтого на зеленый.
- Измените свойство Caption у формы на Упражнение 3.
- Установите желтый цвет формы.
- Создайте обработчики для двух событий мыши: OnMouseEnter и OnMouseLeave.
- В коде события OnMouseEnter установите зеленый (clGreen) цвет формы, а в коде события OnMouseLeave — желтый (clYellow).
- Сохраните изменения в проекте.
- Запустите проект и проверьте его работу.
4. Внесите изменения в проект из примера 5.11 так, чтобы цвет формы менялся случайно. Для задания цвета случайным образом можно воспользоваться командой, которая получает цвет, используя случайные составляющие цвета: Form1 -> Color = (TColor) RGB (rand() % 256, rand() % 256, rand() % 256).