Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Hellp [D6, Win95/98]

Blarior © (2002-11-10 02:00:00)
Я недавно начал программировать, так что не бейте сильно.
Значет так, при создании кнопки "выход" хотел создать диологовое окно, так что бы при её нажатии появлялась две кноки: Выход и OK. Так вот, как сделать так что бы при на жатии выход на диологовом окне закрывалась вся программа, а не только диологовое окно?

Внук (2002-11-10 09:15:00) [1]
PostQuitMessage()

Билл Гейтс (2002-11-10 02:35:00) [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 делай что хочешь;
( можно все одновременно :-)

wssg (2002-11-10 02:17:00) [3]
1. Application.Terminate;
2. Application.MainForm.Close;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »