Форум: "Основная";
Текущий архив: 2003.02.06;
Скачать: [xml.tar.bz2];
Вниз
А как закрыть форму с нужным 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 вся ветка
Форум: "Основная";
Текущий архив: 2003.02.06;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c
