| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Подтверждение закрытия приложения [D5, Win95/98]
Arkady © (2002-10-28 12:46:00)Как перед закрытием формы вывести окно подтверждения типа:
if MessageDlg("Выйти из программы?",
mtConfirmation, [mbYes, mbNo], 0) = mrYes then Form1.close;
Arkady (2002-10-28 13:27:00) [1]Спасибо всем
BIN (2002-10-28 13:10:00) [2]procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if MessageDlg("Выйти из программы?",
mtConfirmation, [mbYes, mbNo], 0) = mrYes then Action :=caFree else
Action :=caNone;
end;
Alx2 (2002-10-28 12:55:00) [3]OnCloseQuery?
Smithson (2002-10-28 12:53:00) [4]Повесь обработчик OnClose
| |
