| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Закрытие формы
alexdn © (2014-03-10 11:26:00)Что то совсем не соображу. Вот как организовать - при закрытии формы один (onClose) показывается форма 2 - form2.show. Но мне то нужно чтобы форма 2 сначала отработала, потом уже закрылось приложение. Т.е. нужно как то отменить закрытие формы1:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if klopros=1 then form2.show;
{Вот тут как прервать FormClose?}
end;
а то форм 2 просто мигнёт, и приложение закрыватся.
alexdn (2014-03-10 13:28:00) [1]Всем спасибо.
alexdn (2014-03-10 13:27:00) [2]Я как то и не подумал раньше.
alexdn (2014-03-10 12:57:00) [3]Хотя да, ShowModal вполне нормально.
Anatoly Podgoretsky (2014-03-10 12:53:00) [4]Как это не хотелось, когда вопрос именно в том чтобы не закрывать форму, а показывать ее модально.
alexdn (2014-03-10 12:39:00) [5]ShowModal не очень хотелось бы..
Inovet (2014-03-10 12:32:00) [6]> [3] alexdn © (10.03.14 12:09)
Action ни о чём не говорит? И вообще, что за дурацкий подход? Ну сделай в конце концов ShowModal.
alexdn (2014-03-10 12:09:00) [7]Т.е нужно сделать как то так, ну это так, для примера, такого не бывает -
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if klopros=1 then
begin
form2.show;
Form1.FormClose. exit;
end;
end;
alexdn (2014-03-10 11:32:00) [8]TForm.OnCloseQuery то же самое, форма 2 мигнёт, и приложение сразу закрывается..
RWolf (2014-03-10 11:30:00) [9]TForm.OnCloseQuery
| |
