• Registered: 2014-11-01
  • Posts: 121

Topic: Выход из программы через подтверждение?

Добрый день! Хочу сделать выход из программы не просто по кнопке и тупо закрыть форму, а с подтверждением. Для этого хочу воспользоваться MessageDlg, но выдает ошибку. Что я делаю не так?

procedure Form1_BtnExit_OnClick (Sender: string; var Cancel: boolean);
begin
if MessageDlg('Вы действительно хотите выйти ?', mtConfirmation, [mbYes, mbNo],0)=mrYes then
form1.close;
end;

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Выход из программы через подтверждение?

Приветствую, попробуйте так

procedure Form1_BtnExit_OnClick (Sender: string; var Cancel: boolean);
begin
   if MessageDlg('Вы действительно хотите выйти ?', mtConfirmation, mbYes + mbNo,0)=mrYes then 
form1.close;
end;
Dmitry.
  • Registered: 2014-11-01
  • Posts: 121

Re: Выход из программы через подтверждение?

Спасибо! Все таки в Вашей программе есть отличия от синтаксиса delphi.

  • Registered: 2014-04-24
  • Posts: 124

Re: Выход из программы через подтверждение?

procedure BD_BtnExit_OnClick (Sender: string; var Cancel: boolean);// Подтверждение выхода
begin
   if MessageDlg('Вы действительно хотите выйти ?', mtConfirmation, mbYes + mbNo,0)=mrYes then
BD.close;
end;

Что-то не работает

Владислав Косяков's Website

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Выход из программы через подтверждение?

Владислав Косяков
Убедитесь, что вы правильно создали событие OnClick для кнопки
http://myvisualdatabase.com/help_ru/scr … rview.html



Если что, пришлите пожалуйста проект на support@drive-software.com

Dmitry.