Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.037 c