Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2015.09.10;
Скачать: CL | DM;

Вниз

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

 
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]

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


 
alexdn ©   (2014-03-10 12:57) [7]

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


 
alexdn ©   (2014-03-10 13:27) [8]

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


 
alexdn ©   (2014-03-10 13:28) [9]

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



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

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

Наверх




Память: 0.48 MB
Время: 0.064 c
2-1395039984
Васька
2014-03-17 11:06
2015.09.10
автоподбор высоты ячейки в Excel


15-1421357405
Юрий
2015-01-16 00:30
2015.09.10
С днем рождения ! 16 января 2015 пятница


15-1412228540
alexdn
2014-10-02 09:42
2015.09.10
Что с ВКонтакте?


1-1332498939
EgorovAlex
2012-03-23 14:35
2015.09.10
Как быстро заполнить TBitmap


15-1415338310
SKIPtr
2014-11-07 08:31
2015.09.10
Серебряная Калоша2014