События главной формы.

В данном разделе мы рассмотрим описание основных событий, которые может «отлавливать» главная форма приложения.

Событие	Описание
OnActivate	Когда приложение стало активным.
OnCanResize	Это событие генерируется перед тем, как изменить размер окна. Здесь можно запретить какие-либо изменения или производить какие-то подготовительные действия.
OnClick	Генерируется, когда пользователь щелкнул по форме.
OnClose	Генерируется, когда окно закрывается.
OnCloseQuery	Генерируется до закрытия окна. В этом обработчике происходит запрос на закрытие, поэтому из этого обработчика можно вывести окно, которое будет запрашивать подтверждение на закрытие. Такие подтверждения можно увидеть в каждом втором приложении типа "Вы уверены, что хотите закрыть окно?".
OnCreate	Генерируется, когда окно создается.
OnDblClick	Генерируется, когда пользователь дважды щелкнул по окну.
OnDeactivate	Генерируется, когда окно деактивируется.
OnDestroy	Когда окно уничтожается.
OnHide	Генерируется, когда окно исчезает из виду. Событие генерируется даже тогда, когда память, выделенная для окна, не уничтожается.
OnKeyDown	Генерируется, когда нажата клавиша на клавиатуре.
OnKeyPress	Генерируется, когда нажата и отпущена клавиша на клавиатуре.
OnKeyUp	Генерируется, когда отпущена клавиша на клавиатуре.
OnMouseDown	Генерируется, когда нажата кнопка мыши.
OnMouseMove	Генерируется, когда двигается мышка.
OnMouseUp	Генерируется, когда отпускается кнопка мыши.
OnMouseWheel	Генерируется колесиком мыши.
OnMouseWheelDown	Генерируется, когда колесико мыши прокручено вниз.
OnMouseWheelUp	Генерируется, когда колесико мыши прокручено вверх.
OnPaint	Генерируется, когда надо перерисовать окно.
OnResize	Генерируется, когда надо изменить размеры окна.
OnShortCut	Генерируется, когда нажата горячая клавиша.
OnShow	Генерируется, когда показывается окно, но до фактической прорисовки. В этот момент окно уже создано и готово к отображению, но еще не прорисовалось на экране.

Практическая работа №34

Наименование работы: «Создание заставки программы».

1. Цель работы: Развить практические навыки в создании заставки программы в объектно-ориентированной среде Delphi 2010.

2. Литература: Флёнов М. «Библия Delphi», Том Сван «Основы программирования в Delphi».

3. Подготовка к работе: Повторить раздел «Графические возможности Delphi».

4. Перечень основного оборудования: ПЭВМ Pentium.

5. Задание:

   1. Создать заставку к своему приложению в Delphi 2010.

   2. Оформить отчет, записав в него программный код приложения.

   3. Ответить на контрольные вопросы.

6. Порядок выполнения работы:

   1. Запустить объектно-ориентированную среду Delphi 2010.

   2. Создать новый проект File=>New=>VCL Forms Application – Delphi.

   3. Создать еще одну форму File=>New=>Form – Delphi.

   4. Сохранить проект File=>Save All, при этом изменив имена проекта с с Unit2 на Main, с Unit1 на Screen, и Project1 на Lab34_35.

   5. В меню Project=>Options=>Forms выбрать в выпадающем списке Main Form главную форму Form2 (рис. 4.1.).

Рис. 4.1. – Выбор в проекте главной формы.

6. Изменить свойства формы Form1:

   1. Caption: удалить «Form1».

   2. Name: «ScreenForm».

   3. BorderStyle: установить в bsNone.

   4. Height: установить значение в 375.

   5. Width: установить значение в 600.

   6. Position: установить в poScreenCenter.

7. С вкладки компонентов Additional перенести в самый верхний левый угол формы компонент TImage.

8. Изменить свойства компонента TImage1:

   1. Name: «scrimg».

   2. Height: установить значение в 375.

   3. Width: установить значение в 600.

   4. Picture: кликнуть на квадратик справа как показано на изображении

Рис. 4.2. – Выбор картинки для нашей заставки.

и в открывшемся окне нажать на кнопку «Load…» и выбрать из папки «34» изображение «picture.jpg». Далее нажать на кнопку «OK».

9. С вкладки компонентов System перенести на форму компонент TTimer и изменить его свойства:

   1. Name: «timer».

   2. Interval: установить значение в 2000.

   3. Enabled: установить в False.

10. С вкладки компонентов Standard перенести на форму 2 компонента TLabel.

11. Изменить свойства компонента Label1 на следующие:

    1. Alignment: установить в taCenter.

    2. AutoSize: установить в False.

    3. Caption: удалить надпись «Label1».

    4. Name: «screenlbl».

    5. Font: кликнуть на квадратик справа как показано на изображении

Рис. 4.3. – Настройка шрифта для нашей надписи.

и в открывшемся окне установить значения как показано на рис. 4.4.

Рис. 4.4. – Установка нужных нам значений для Label1.

6. Height: установить значение в 19.

7. Left: установить значение в 8.

8. Top: установить значение в 345.

9. Width: установить значение в 584.

1. Аналогичным способом изменить свойства компонента Label2:

   1. Alignment: установить в taCenter.

   2. AutoSize: установить в False.

   3. Caption: «Практическая работа №34-35».

   4. Name: «namelbl».

   5. Font: установить значения как показано на рис. 4.5.

Рис. 4.5. – Установка нужных нам значений для Label2.

6. Height: установить значение в 23.

7. Left: установить значение в 8.

8. Top: установить значение в 8.

9. Width: установить значение в 584.

1. Для компонента scrimg в обработчике событий (Events) создать событие OnClick и вписать следующий программный код:

procedure TScreenForm.scrimgClick(Sender: TObject);

begin // начало

ScreenForm.Close; // при нажатии по изображению закрываем форму

timer.Enabled:=false; // выключаем таймер

end; // конец

14. Для компонента timer создать событие OnTimer и вписать следующий программный код:

procedure TScreenForm.timerTimer(Sender: TObject);

begin // начало

screenform.Close; // по истечению 2 секунд закрываем форму

end; // конец

15. Перейти на форму Form2 и изменить ее свойства на следующие:

    1. Borger Icons: снять галочки с biMaximize и biMinimize, оставив только biSystemMenu.

    2. BorderStyle: установить в bsSingle.

    3. Caption: «Практическая работа №34-35».

    4. Icon: загрузить иконку из папка «34» mainicon.ico.

    5. Name: «MainForm».

    6. Position: установить в poScreenCenter.

16. В меню открыть Project=>Options=>Application, нажать на кнопку Load Icon… и загрузить иконку в наше приложение из папки «34» mainicon.ico, нажать OK.

17. Открыть программный код формы MainForm и в раздел uses добавить модуль Screen.

18. В обработчике событий (Events) формы MainForm создать событие OnShow и вписать следующий код:

procedure TMainForm.FormShow(Sender: TObject);

begin // начало

ScreenForm.screenlbl.Caption:='Программа выполнена студентом группы 3ПВТ-018'+

' Фамилия Имя'; // на нашей заставке присваиваем метке нашу надпись

ScreenForm.Show; // показываем форму с заставкой

screenform.timer.Enabled:=true; // включаем таймер

end;