Две формы

← →
ванька (2008-02-03 20:30) [0]

Есть две формы, из первой вызывается вторая:
with TForm2.Create(Self) do try ShowModal; finally Free; end;

А во второй такой код:
procedure TForm2.FormActivate(Sender: TObject); begin ModalResult := mrOk; end;

Почему не срабатывает код в Form2?

Спасибо.

← →
Johnmen © (2008-02-03 20:35) [1]

> не срабатывает код в Form2

С чего ты взял?

← →
ванька (2008-02-03 20:42) [2]

Ну у меня такой пример не работает. Form2 не закрывается.

← →
Johnmen © (2008-02-03 20:43) [3]

С какой стати должна закрываться?

← →
ванька (2008-02-03 20:49) [4]

Ну а что она должна сделать тогда?

Тот же пример с ModalResult, но применимый к нажатию кнопки:
procedure TForm2.Button1Click(Sender: TObject); begin ModalResult := mrOk; end;

Закрывает форму.

И такой пример тоже не работает:

procedure TForm2.FormActivate(Sender: TObject); begin Close; end;

Тут уж точно должно закрываться?

> Тут уж точно должно закрываться?

Точно не должно.
Ибо вызывать методы, изменяющие видимость формы, из процедур обработки событий, связанных и изменением видимости, недопустимо.

> Почему не срабатывает код в Form2?

Видимо, FormActivate() вызывается до обнуления ModalResult. Т.е. ты устанавливаешь
ModalResult := mrOk;
а после этого VCL его обнуляет, поэтому никакого толку. Close не срабатывает по той же причине.

Две формы Найти похожие ветки