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

// выбор из меню? команды О программе

procedure TForm1.N4Click(Sender: TObject);

Begin

AboutForm.Top:=

Trunc(Forml.Top + Forml.Height/2 - AboutForm.Height/2);

AboutForm.Left:=

Trunc (Form1.Left +Form1.Width/2

- AboutForm. Width/2 }; AboutForm. ShowModal;

end;

Примечание

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

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

procedure TAboutForm.ButtonlClick (Sender: TObject);

Begin

ModalResult:= mrOk;

end;

Листинги

Полный текст программы Сапер 2002 представлен ниже. В листинге 15.9 приведен модуль, соответствующий главной форме, В листинге 15.10 -форме О программе.