[Михалыч]

Создал на форме разные менюшки, в т.ч. и "О программе"
Создал вторую *дочернюю форму). Как сделать чтобы при нажатии на меню "О программе" выскакивало модальное окно?

[Nikitiy_II]

AboutBox.ShowModal;

[M.A.D.M.A.N.]

Код:

Application.CreateForm(TAboutBox,AboutBox);
AboutBox.ShowModal;
AboutBox.Free;

[artemavd]

Сообщение от M.A.D.M.A.N.

Код:

Application.CreateForm(TAboutBox,AboutBox);
AboutBox.ShowModal;
AboutBox.Free;

В Unit1 в секции implementation напими: uses Unit2. Тоже самое, но наоборот сделай во втором модуле. В процедуре кнопки "О Программе" напиши

Код:

 Form2.Show;

[lmikle]

Код:

uses AboutFrm {TAboutForm};

procedure TForm1.AboutMenuClick(Sender : TObject);
begin
  With TAboutForm.Create(Nil) Do
    Begin
      ShowModal;
      Free;
    End;
end;

[Михалыч]

Если использовать стандартную форму "О программе" тогда проблем нет (Файл-Создать-Другое-Формы-AboutBox).
Но я создавал окно "О программе" как Файл-Создать-Форма, поэтому вопрос и возник, т.к.
Begin
Form2.Show;
End;
вылетал с ошибкой.

А вот с кодом

Begin
ShowModal;
End;

все заработало.

[artemavd]

Сообщение от Михалыч

Begin
Form2.Show;
End;
вылетал с ошибкой.

Значит неправильно подключил модуль. Я проверил, у меня все работает. Где то видимо вы ошиблись. Я этим способом вегда пользуюсь.

А вот с кодом

Begin
ShowModal;
End;

все заработало.

Можно и так.

[Михалыч]

Спасибо всем ответившим.
Кто-то сможет мне помочь по поводу http://www.delphisources.ru/forum/showthread.php?t=5366