§ 5. Визуальная среда разработки программ

Упражнения

   

1. Создайте проект, в котором при клике мыши по форме она будет перемещаться в левый верхний угол экрана.

    1. Создайте и сохраните в новой папке проект.
    2. Измените свойство Caption у формы на Упражнение 1.
    3. Создайте обработчик события мыши OnlClick.
    4. Для изменения местоположения формы можно воспользоваться командами:
      Form1 -> Left = 0;
      Form1 -> Top = 0;
    5. Сохраните изменения в проекте.
    6. Запустите проект и проверьте его работу.

2. Создайте проект, в котором при двойном клике мыши по форме ее размеры будут увеличиваться на 5.

    1. Создайте и сохраните в новой папке проект.
    2. Измените свойство Caption у формы на Упражнение 2.
    3. Создайте обработчик события мыши OnDblClick.
    4. Для изменения ширины и высоты формы можно воспользоваться командами:
      Form1 -> Width += 5;
      Form1 -> Height += 5;
    5. Сохраните изменения в проекте.
    6. Запустите проект и проверьте его работу.

3. Создайте проект, в котором цвет формы будет меняться при наведении на нее мыши, например с желтого на зеленый.

    1. Измените свойство Caption у формы на Упражнение 3.
    2. Установите желтый цвет формы.
    3. Создайте обработчики для двух событий мыши: OnMouseEnter и OnMouseLeave.
    4. В коде события OnMouseEnter установите зеленый (clGreen) цвет формы, а в коде события OnMouseLeave — желтый (clYellow).
    5. Сохраните изменения в проекте.
    6. Запустите проект и проверьте его работу.

4. Внесите изменения в проект из примера 5.11 так, чтобы цвет формы менялся случайно. Для задания цвета случайным образом можно воспользоваться командой, которая получает цвет, используя случайные составляющие цвета: Form1 -> Color = (TColor) RGB (rand() % 256, rand() % 256, rand() % 256).