Закрытие формы

← →
alexdn © (2014-03-10 11:26) [0]

Что то совсем не соображу. Вот как организовать - при закрытии формы один (onClose) показывается форма 2 - form2.show. Но мне то нужно чтобы форма 2 сначала отработала, потом уже закрылось приложение. Т.е. нужно как то отменить закрытие формы1:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin if klopros=1 then form2.show; {Вот тут как прервать FormClose?} end;
а то форм 2 просто мигнёт, и приложение закрыватся.

← →
RWolf © (2014-03-10 11:30) [1]

TForm.OnCloseQuery

← →
alexdn © (2014-03-10 11:32) [2]

TForm.OnCloseQuery то же самое, форма 2 мигнёт, и приложение сразу закрывается..

← →
alexdn © (2014-03-10 12:09) [3]

Т.е нужно сделать как то так, ну это так, для примера, такого не бывает -
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin if klopros=1 then begin form2.show; Form1.FormClose.exit; end; end;

← →
Inovet © (2014-03-10 12:32) [4]

> [3] alexdn © (10.03.14 12:09)

Action ни о чём не говорит? И вообще, что за дурацкий подход? Ну сделай в конце концов ShowModal.

← →
alexdn © (2014-03-10 12:39) [5]

ShowModal не очень хотелось бы..

← →
Anatoly Podgoretsky © (2014-03-10 12:53) [6]

Как это не хотелось, когда вопрос именно в том чтобы не закрывать форму, а показывать ее модально.

Хотя да, ShowModal вполне нормально.

Я как то и не подумал раньше.

Всем спасибо.

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