Скачать: CL | DM;

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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c