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

Вниз

Вопрос про 2 формы...   Найти похожие ветки 

 
Ultimate ©   (2008-02-27 16:19) [0]

У меня имеется 2 формы. При запуске программы запускается первая, которая включает тут-же вторую. Во второй форме есть некая функция (мол закрыть форму 2 и работать с формой 1, и закрыть форму 2 вместе с формой 1...) Так вот я использовал, что при закрытии (например) формы 2, должна закрыться форма 1, вывел команду:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Close;
end;

Но дело в том, что форма 1 "подвисает", её завершили до окончания действия... (Действие заключается в запуске формы 2 и ожидание завершения формы 2, для джальнейшего функционирования формы1).
Как можно воплотить закрытие обоих форм одновременно, без ошибок?


 
Ultimate ©   (2008-02-27 16:35) [1]

Или хотя бы скажите, как некоторые данные отправить с формы 2 на форму 1???


 
Chorniy   (2008-02-27 16:47) [2]

Ну какой вопрос такой и ответ) коль более нету подробных данных то тогда сделай так:

чтобы закрыть обе формы без ошибок надо просто закрыть форму1 ибо она является главной формой приложения, после чего форма2 закроется сама...

проще говоря так:
procedure TForm2.Button1Click(Sender: TObject); // закроются обе формы
begin
 form1.close;
end;

procedure TForm2.Button2Click(Sender: TObject); // закроется только форма2
begin
 form2.close;
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.014 c
2-1203487534
snake-as
2008-02-20 09:05
2008.03.23
Работа с числами


6-1180019290
flaxe
2007-05-24 19:08
2008.03.23
"Фильтр" пакетов


4-1184732548
Alx2k
2007-07-18 08:22
2008.03.23
Как отобразить свойства файла (как в проводнике), для нескольких файлов?


2-1204008733
031178
2008-02-26 09:52
2008.03.23
Календарик в Delphi


4-1178624707
Glu
2007-05-08 15:45
2008.03.23
Дата BIOS в WinXP x64