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

Вниз

Закрытие главной формы из модальной   Найти похожие ветки 

 
INTAARI   (2004-06-24 10:41) [0]

Добрый день господа!!!
При нажатие на копку 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 10:44) [1]

Application.Terminate


 
имя   (2004-06-24 10:47) [2]

Удалено модератором


 
Yakudza ©   (2004-06-24 10:49) [3]

У тебя же функция возарвщает значение здесь result := false;//нажато все осальное

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


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


> Application.Terminate

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


 
Ega23 ©   (2004-06-24 10:53) [5]

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

Да ну нафиг!


 
INTAARI   (2004-06-24 10:56) [6]

Сработало после изменния на

> ShowModal;
> if ModalResult = mrOk

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


 
имя   (2004-06-24 10:57) [7]

Удалено модератором


 
имя   (2004-06-24 11:01) [8]

Удалено модератором


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


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

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

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


 
Yakudza ©   (2004-06-24 11:09) [10]

И вообще, зачем так тупо прибивать приложение !?


 
INTAARI   (2004-06-24 11:16) [11]

Гуманее всего
PostMessage(frmGMP.Handle,WM_CLOSE,0,0);
если я правильно понял?


 
имя   (2004-06-24 11:24) [12]

Удалено модератором


 
Плохиш ©   (2004-06-24 11:48) [13]

>www.shegeda.by.ru   (24.06.04 11:24) [12]

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


 
имя   (2004-06-24 11:51) [14]

Удалено модератором



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

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

Наверх




Память: 0.49 MB
Время: 0.043 c
8-1082474875
AndreySoft
2004-04-20 19:27
2004.07.11
Как получить имя файла загруженного в TImage


1-1088061880
Alfer
2004-06-24 11:24
2004.07.11
Internal error L470


3-1087286955
kalishenko
2004-06-15 12:09
2004.07.11
Связь контролов в DLL и IB компонент проложения


10-1017133347
Delph
2002-03-26 12:20
2004.07.11
CORBA-клиент и EJB


1-1088288639
TGrey
2004-06-27 02:23
2004.07.11
Как сохранить TList в файле