При выборе из меню ? команды О программе на экране должно появиться одноименное окно (рис. 15.15).

Рис. 15.15. Окно О программе

Рис. 15.16. Форма О программе

Чтобы программа во время своей работы могла вывести на экран окно, отличное от главного (стартового), нужно создать это окно. Делается это выбором из меню File команды New form. В результате выполнения команды New form в проект добавляется новая форма и соответствующий ей модуль.

Вид формы AboutForm после добавления необходимых компонентов приведен на рис. 15.16, значения ее свойств - в табл. 15.8.

Таблица 15.8

Свойство

Значение

Name

AboutForm

Caption

О программе

BorderStyle

bsSingle

Borderlcons

biSystemMenu

False

Borderlcons

biMininize

False

Borderlcons

biMaximize

False

Событие, которое происходит в результате выбора из меню ? команды О программе, обрабатывается процедурой click, которая выводит окно О программе. Непосредственно вывод окна выполняет метод showModai, который выводит окно как модальный диалог.

I Листинг 15.8. Вывод окна О программе

// выбор из меню ? команды О программе procedure TForml.N4Click(Sender: TObject); begin AboutForm.Top := Trune(Forml.Top + Forml.Height/2

- AboutForm.Height/2);
AboutForm.Left := Trune(Forml.Left +Forml.Width/2
- AboutForm.Width/2);
AboutForm.ShowModal;
end;

( Примечание J

Модальный диалог перехватывает все события, адресованные другим окнам приложения. Пока модальный диалог находится на экране, другие окна приложения не реагируют на действия пользователя. Для продолжения работы с приложением нужно закрыть модальный диалог. В большинстве программ, в том числе и в Delphi, информация о программе реализована как модальный диалог.

Если не предпринимать никаких усилий, то окно О программе появится в той точке экрана, в которой находилась форма во время ее разработки. Вместе с тем, можно "привязать" это окно к главному окну программы так, чтобы оно появлялось в центре главного окна. Привязка осуществляется на основании информации о текущем положении главного окна программы (свойства тор и Left) и размере окна О программе. Окно О программе должно быть удалено с экрана в результате нажатия кнопки ОК. Процедура обработки этого события приведена ниже.

procedure TAboutForm.ButtonlClick(Sender: TObject);
begin
ModalResult := mrOk;
end;

Справочная информация || Оглавление || Листинги


Delphi 6. Программирование на Object Pascal



Новости за месяц

  • Ноябрь
    2019
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс