Форум: "Основная";
Текущий архив: 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.007 c