Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.07.11;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.034 c
1-1088508750
Ш-К
2004-06-29 15:32
2004.07.11
Корень XML документа


1-1087771522
Алекс А
2004-06-21 02:45
2004.07.11
Как лучше работать с 300-мегабайтным массивом ?


1-1088067873
Partos
2004-06-24 13:04
2004.07.11
Удаление строк в Стринггриде


4-1083161649
Бегун
2004-04-28 18:14
2004.07.11
Как запретить двигать форму?


1-1088006910
XeLax
2004-06-23 20:08
2004.07.11
извлечь минуты





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский