Статистика | Зарегистрировано на сайте: Всего: 51666
Онлайн всего: 6 Гостей: 6 Пользователей: 0

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