Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Закрытие главной формы из модальной [D6, WinME]

INTAARI © (2004-06-24 10:41:00)
Добрый день господа!!!
При нажатие на копку Cancel в модальной форме (ввод пароля)должна закрыться главная форма но этого не происходит.
function TfrmPasswordDlg.Execute: boolean; begin if ShowModal = mrOk then if edtPassword.Text='12345' then result := true else result := false; else begin result := false;//нажато все осальное frmGMP.Close;//закрытие главной формы end; end;

(2004-06-24 11:51:00) [1]
Удалено модератором

Плохиш (2004-06-24 11:48:00) [2]
>www.shegeda.by.ru (24.06.04 11:24) [12]

Как на счёт события FormDestroy?

(2004-06-24 11:24:00) [3]
Удалено модератором

INTAARI (2004-06-24 11:16:00) [4]
Гуманее всего
PostMessage(frmGMP.Handle,WM_CLOSE,0,0);
если я правильно понял?

Yakudza (2004-06-24 11:09:00) [5]
И вообще, зачем так тупо прибивать приложение !?

Плохиш (2004-06-24 11:06:00) [6]

> www.shegeda.by.ru (24.06.04 11:01) [8]

Где Вы только такую траву берёте? 8-O

PS. Может в справку глянешь для начала и не путай с Halt.

(2004-06-24 11:01:00) [7]
Удалено модератором

(2004-06-24 10:57:00) [8]
Удалено модератором

INTAARI (2004-06-24 10:56:00) [9]
Сработало после изменния на

> ShowModal;
> if ModalResult = mrOk

и замещение frmGMP.Close на Application.Terminate

Ega23 (2004-06-24 10:53:00) [10]
не срабатывает

Да ну нафиг!

Yakudza (2004-06-24 10:49:00) [11]
У тебя же функция возарвщает значение здесь result := false;//нажато все осальное

А чего не закрываться из главной формы ?

INTAARI (2004-06-24 10:49:00) [12]

> Application.Terminate

не срабатывает

(2004-06-24 10:47:00) [13]
Удалено модератором

Плохиш (2004-06-24 10:44:00) [14]
Application.Terminate

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »