Подписаться на RSS рассылку
Главная » Статьи по Delphi » Диалоговые окна » Показать диалог с кнопками Да, Нет, Отмена

Показать диалог с кнопками Да, Нет, Отмена

Автор: Борисов Сергей

case MessageBox(Handle,'Вопрос','Test',35) of
  6: ShowMessage('Нажата кнопка Да');
  7: ShowMessage('Нажата кнопка Нет');
  2: ShowMessage('Нажата кнопка Отмена');
end;

А если нужно показать диалог при закрытии формы, например сохранить результаты или нет:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:=false;
  case MessageBox(Handle,'Сохранить изменения?','Сохранить?',35) of
    6: {сохраняем результаты};
    2: exit;
  end;
  CanClose:=true;
end;

Просмотров: 11558

Обсудить на форуме


Имя *:
Email:


Код *:

Copyright © 2008-2016 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта