Статистика | Зарегистрировано на сайте: Всего: 51642
Онлайн всего: 19 Гостей: 19 Пользователей: 0
|
|
Каталог статей
Запрос на закрытие программы
В обработчике событий кликаем по форм клосе кверти
Туда вписываем:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose:=MessageDlg ('Действительно выйти?',mtConfirmation,[mbYes,mbNo],0)=mrYes end;
|
|
Просмотров: 522
| Рейтинг: 1.0/
4
Оштрафовать
| Жаловаться на материал |
|
|