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

Вниз

Hellp   Найти похожие ветки 

 
Blarior   (2002-11-10 02:00) [0]

Я недавно начал программировать, так что не бейте сильно.
Значет так, при создании кнопки "выход" хотел создать диологовое окно, так что бы при её нажатии появлялась две кноки: Выход и OK. Так вот, как сделать так что бы при на жатии выход на диологовом окне закрывалась вся программа, а не только диологовое окно?


 
wssg   (2002-11-10 02:17) [1]

1. Application.Terminate;
2. Application.MainForm.Close;



 
Билл Гейтс   (2002-11-10 02:35) [2]

Если ты делаешь это диалоговое окно так
New-->Dialogs-->Standart dialog, то написано выше.
А можно сделать и по-другому:

...........................
if MessageDlg("Do you realy want to quit?",mtConfirmation,[mbYes,mbNo],0)=mrYes then
close;
...........................

То вылезет стандартный cofirmation диалог (например как в Word и других программах) и если ты нажмешь там кнопку Yes, то программа закроется.
вместо mtCobfirmation ("подтверждение")можно поставить и другие значения:
mtError - сообшение об ошибке (имеет значок в виде красного стоп сигнала)
mtInformation - просто сообщение (имеет голубой значок с буквой i)
mtWarning - предупреждение (имеет желтый значок)


также в местe [mbYes, mbNo] можно было написать в любом сочетании через запятую mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore, mbAll, mbNoToAll, mbYesToAll, mbHelp - это отвечает за то какие кнопки будут находиться на диалоге.
Проверку того, на какую кнопку нажал пользователь можно мделать так: описать в блоке var какую-нибудь переменную типа integer (var x:integer;), и когда хочешь вызвать этот дилог, то пиши x:=MessageDlg(я чуть выше рассказал что тут написать);
if x=(вот там кнопки назывались mtYes mtNo и т.д. а здесь напиши m rYes mrNo b и т.д.)then делай что хочешь;
( можно все одновременно :-)


 
Внук   (2002-11-10 09:15) [3]

PostQuitMessage()



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

Форум: "Основная";
Текущий архив: 2002.11.21;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.008 c
7-69588
matrixxxx
2002-09-20 22:10
2002.11.21
Поможите написати тест по алгебре на дельфи! ч варианта


6-69477
TurburatoR
2002-09-23 13:01
2002.11.21
CGI & ClientSocket


1-69353
max_28
2002-11-13 00:12
2002.11.21
защита программы от копирования


14-69513
Дельфист замученный билдером
2002-11-02 12:24
2002.11.21
Проклятый билдер


1-69311
iNew
2002-11-12 16:34
2002.11.21
Кто пользовался компонентой AsyncPro отзовитесь.





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский