Закрыть форму в 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, задача поставлена не верно.

PostMessage(handle, WM_CLOSE, 0, 0)

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

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

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