Как задать ModalResult?

← →
wezzz (2006-02-20 15:59) [0]

На форме есть кнопка. Для неё ModalResult = mrOk. Как програмно симитировать нажатие на неё? Т.е. чтобы форма закрывалась и возвращался ModalResult = 1?
Пробовал делать Button1Click(Form1) и Form1.ModalResult := mrOk -- эффект не тот :(

← →
MegaVolt © (2006-02-20 16:07) [1]

А чем неустроил результат?

← →
wezzz (2006-02-20 16:08) [2]

не закрывается форма

← →
RO (2006-02-20 16:09) [3]

> Form1.ModalResult := mrOk -- эффект не тот

И какой же ?

← →
tytus (2006-02-20 16:10) [4]

>wezzz
Form1.ModalResult:=100;// и форма закроется.
показ формы:
if Form1.ModalResult=1//форма уже будет видна , если конечно до этого она была создана: Form1:=TForm1.Create(Application).

← →
tytus (2006-02-20 16:12) [5]

[4]
Ошибочка-правильно так
if Form1.ShowModal=mrOK

← →
RO (2006-02-20 16:12) [6]

> не закрывается форма

Значит она не модальная

← →
wezzz (2006-02-20 16:16) [7]

Form1.ModalResult := mrOk;
Access violation

← →
RO (2006-02-20 16:20) [8]

> Access violation

Значит переменная Form1 содержит либо мусор либо nil.

← →
tytus (2006-02-20 16:31) [9]

[7]
Form1:=TForm1.Create(Application);
try
Form1.ShowModal;// if Form1.ModalResult=mrOK - то же самое
...
finally
Form1.Close;//Form1.ModalResult:=100;
FreeAndNil(Form1);
end;
Если на кнопке ModalResult=mrOK то щелчком по ней МОДАЛЬНАЯ форма закроется, и никакого обработчика для кнопки писать не надо!

> wezzz (20.02.06 16:16) [7]
> Form1.ModalResult := mrOk;

Сие часом не в реализации TForm1?

> wezzz (20.02.06 15:59)
> На форме есть кнопка. Для неё ModalResult = mrOk. Как програмно
> симитировать нажатие на неё?

Button1.Click;

PS. Ту галиматью, что написана в последующих двух строчках, Вы уж извините, я не понял.

Можно просто в любой процедуре модальной формы написать
ModalResult := mrOk;
и все форма закроется.

Как задать ModalResult? Найти похожие ветки