Меню сайта
Мини-чат
Чтобы добавить сообщение, необходимо авторизоваться.
Главная » Статьи » Delphi » Примеры на Delphi7

Запрос на закрытие программы

В обработчике событий кликаем по форм клосе кверти

Туда вписываем:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=MessageDlg ('Действительно выйти?',mtConfirmation,[mbYes,mbNo],0)=mrYes
end;
Категория: Примеры на Delphi7 | Добавил: DelphiAiX (20.03.2011)
Просмотров: 1912 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]