Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

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

Slava (2003-01-29 10:23:00) [1]
@andrew © (28.01.03 11:22)

Все работает, только форму нужно вызывать через ShowModal

Anatoly Podgoretsky (2003-01-29 10:07:00) [2]
Странный ответ, не вижу сдесь функции

icWasya (2003-01-29 09:57:00) [3]
>Anatoly Podgoretsky
procedure TCustomForm.Close;
.....
begin
...

ModalResult := mrCancel
...

Anatoly Podgoretsky (2003-01-29 09:50:00) [4]
REA © (28.01.03 11:39)
Странная мысль. Не представляю даже как можно использовать функцию.

icWasya (2003-01-29 09:43:00) [5]
посмотри реализацию TForm.Close и всё поймёшь

Dms (2003-01-28 11:40:00) [6]
ModalResult должен присваиваться в onClose, если там этого нет, то проставляетcя значение по умолчанию.

REA (2003-01-28 11:39:00) [7]
Кстати логики в этом нет - они очень увлеклись Property. Тут лучше бы функция подошла.

@andrew (2003-01-28 11:36:00) [8]
Если в OnClose - тогда работает, а если не в OnClose - не работает. Не сложно, конечно, поместить ModalResult в Tag и на закрытии всегда делать ModalResult:=Tag - но это же фигня. Разве нет?

NickBat (2003-01-28 11:29:00) [9]
Написал в OnClose формы
ModalResult:=mrOk;
и все работает.

Jeer (2003-01-28 11:28:00) [10]
ModalResult:=mrOK;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »