Текущий архив: 2003.04.14;
Скачать: CL | DM;

Вниз

Закрыть форму в OnShow.   Найти похожие ветки 

← →
Ops   (2003-04-02 14:40) [0]

Создаю форму
Form1 := TForm1.Create(Application);
Form1.ShowModal;
Form1.Free;
procedure TForm1.FormShow(Sender: TObject);
begin
ModalResult:= 1;
end;
Незакрывается !!! по ModalResult Че делать...

---

← →
Жук ©   (2003-04-02 14:44) [1]

Ну, не должна форма закрываться из-за, того, что ModalResult"у значение присвоили.
procedure TForm1.FormShow(Sender: TObject);
begin
Close;
ModalResult:= 1;
end

---

← →
Skier ©   (2003-04-02 14:44) [2]

>Ops
Если честно, то не понятно цель всего этого...
Давай подробности...

(для справки : метод ModalResult как
раз и возвращает ModalResult)

---

← →
Skier ©   (2003-04-02 14:45) [3]

Ой, метод ShowModal, конечно же...

---

← →
Ops   (2003-04-02 14:48) [4]

Ребята...
НУЖНО ЗАРЫТЬ корректно ФОРМУ по модальному результату сразу в OnShow...

---

← →
Skier ©   (2003-04-02 14:50) [5]

Так ведь именно ShowModal и даёт модальный результат.
IMHO, задача поставлена не верно.

---

← →
Юрий Федоров ©   (2003-04-02 14:52) [6]

PostMessage(handle, WM_CLOSE, 0, 0)

---

← →
Ops   (2003-04-02 14:58) [7]

Юрий Федоров - спасибо

---

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

Текущий архив: 2003.04.14;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.022 c