Скачать: CL | DM;

А как закрыть форму с нужным 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)
Странная мысль. Не представляю даже как можно использовать функцию.

---

← →
icWasya ©   (2003-01-29 09:57) [8]

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

ModalResult := mrCancel
...

---

← →
Anatoly Podgoretsky ©   (2003-01-29 10:07) [9]

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

---

← →
Slava ©   (2003-01-29 10:23) [10]

@andrew © (28.01.03 11:22)

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c