А как закрыть форму с нужным ModalResult?

← →
@andrew © (2003-01-28 11:22) [0]

Делаю:
procedure TForm1.OnЧто-то-там(Sender: TObject)
begin
ModalResult:=IDOK;
Close;
end
- не работает. А как надо? Спаисбо.

← →
Jeer © (2003-01-28 11:28) [1]

ModalResult:=mrOK;

← →
NickBat © (2003-01-28 11:29) [2]

Написал в OnClose формы
ModalResult:=mrOk;
и все работает.

← →
@andrew © (2003-01-28 11:36) [3]

Если в OnClose - тогда работает, а если не в OnClose - не работает. Не сложно, конечно, поместить ModalResult в Tag и на закрытии всегда делать ModalResult:=Tag - но это же фигня. Разве нет?

← →
REA © (2003-01-28 11:39) [4]

Кстати логики в этом нет - они очень увлеклись Property. Тут лучше бы функция подошла.

← →
Dms (2003-01-28 11:40) [5]

ModalResult должен присваиваться в onClose, если там этого нет, то проставляетcя значение по умолчанию.

← →
icWasya © (2003-01-29 09:43) [6]

посмотри реализацию TForm.Close и всё поймёшь

← →
Anatoly Podgoretsky © (2003-01-29 09:50) [7]

REA © (28.01.03 11:39)
Странная мысль. Не представляю даже как можно использовать функцию.

>Anatoly Podgoretsky
procedure TCustomForm.Close;
.....
begin
...

ModalResult := mrCancel
...

Странный ответ, не вижу сдесь функции

А как закрыть форму с нужным ModalResult? Найти похожие ветки