|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
как вывести сообщение о подтверждении выхода из программы?
знаю что код для реализации этой функции нужно вставить в событие form.close, но какой кое не знаю. за любую помощь буду очень благодарен!
|
#2
|
||||
|
||||
Код:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin if MessageDlg('Вы действительно хотите закрыть программу?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin // завершение программы разрешено end else begin // завершение программы запрещено // например, можно запретить ей закрыться, сделав так: Action:=caNone; end; end; Велик и могуч наш Object Pascal ! ICQ: 357-591-887 |
#3
|
|||
|
|||
огромное спасибо! великолепный форум!
|
#4
|
||||
|
||||
А CloseQuery вам на что, ребята?
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#5
|
|||
|
|||
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin CanClose := MessageDlg('Вы действительно хотите выйти из программы?',mtConfirmation,[mbYes,mbNo],0)=IDYes // по-английски CanClose := MessageBox(Application.Handle,'Вы действительно хотите выйти из программы?','Предупреждение',MB_YESNO)=ID_YES; //по-русски end; |