Delphi

Разработка сайтов

Наши проекты

Главная » Статьи по 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;