Лекция № 20. Создание заставки, информационных окон.
1. Создание заставки.
Перед появлением главного окна во всех серьёзных приложениях сначала появляется заставка. Заставка обычно несет в себе информацию о названии продукта, авторе, версии.
Рассмотрим простой способ создания окна-заставки.
Для начала необходимо подготовить само изображение, которое Вы хотите видеть в качестве заставки. В качестве примера возьмем изображение из Borland Delphi 5.
Итак, порядок действий следующий:
1. Создаем новую форму File > New > Form – Delphi for Win322.
2. Для удобства назовем ее IntroForm и зададим свойству BorderStyle значение bsNone (Исчезнут заголовок и рамка формы), свойству Position значение poDesktopCenter (окно будет появляться по центру рабочего стола).
3. Поместим на форму компонент TImage (вкладка Additional) и загрузим наше изображение с помощью свойства Picture.
4. Поместим на форму компонент TTimer (вкладка System), установим его свойству Interval значение равное 3000 (3 секунды), а в обработчике событий OnTimer запишем:
Timer1.Enabled := false;
5. Далее открываем файл проекта: Project > View Source и вносим изменения согласно примера ниже:
program Project1;
uses
Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {IntroForm};
{$R *.res}
begin Application.Initialize; IntroForm := TIntroForm.Create(Application); IntroForm.Show; IntroForm.Update; while IntroForm.Timer1.Enabled do Application.ProcessMessages; Application.CreateForm(TForm1, Form1); IntroForm.Hide; IntroForm.Free; Application.Run; end.
2. Информационное окно в Delphi приложении
В большинстве приложений есть информационное окно, .т.е форма, в которой отображается краткая информация о приложении. Как правило, это сведения о названии программного продукта, номере версии, об авторах, дате выпуска, какой нибудь рисунок (логотип) и еще какие-либо данные. Информационное окно обычно имеет пункт меню "О программе" или по английски - About.
В помощь программисту имеется шаблон в Delphi или же такое окно можно создать самостоятельно. Для того чтобы воспользоваться шаблоном, нужно выбрать в Хранилище объектов (File -> New -> Other) на странице Forms шаблон формы About box.
В
итоге к приложению будет добавлена
форма с заголовком About и с именем AboutBox
.
Н
а
форме будут расположены панель (компонент
Panel) и кнопка с заголовком OK для закрытия
окна. Для кнопки обработчик события не
требуется, так как свойство ModalResult кнопки
установлено равным mrOK и поэтому при ее
нажатии информационное окно будет
закрыто.
Панель (компонент Panel) содержит в себе четыре компонента Label для показа сведений о программном продукте и его разработчиках. Компонент Image предназначен для отображения какого-либо рисунка, например логотип производителя программы.
Заголовок самой формы About при необходимости также можно изменить. Если на форме необходимы будут еще какие-нибудь элементы, то их всегда можно добавить или, при необходимости, ненужные удалить.
При работе с программой информационное окно обычно выводиться с помощью главного меню в модальном режиме. Для продолжения работы с программой информационное окно должно быть закрыто.
Пример вызова информационного окна из меню будет таким:
procedure TForm1.N1Click(Sender: TObject);
begin
AboutBox.ShowModal;
end;