[Vavrenyuk]

Здраствуйте уважаемые программисты. Помогите пожалуйста исправить ошибку (если это можно ею назвать): я хочу поставить на кнопку выход (сделанную мной) чтобы "высовывалось" сообщение. Так вот я его сделал. Но при нажатии кнопки (выхода) всё идет нормально. А вот при нажимании на кнопку "Да" в это окне у меня повторно это сообщение "высовывается" и только при повторном подтверждении закрывается программа. Подскажите как это исправить пожалуйста. При нажимании на "Нет" всё нормально. Вот код кнопки выхода :

Код:

 if Application.MessageBox(PChar('Вы действительно хотите выйти из  программы ?'), 'Внимание !',
  MB_YesNo)=id_Yes then
  Form1.Close;

[poli-smen]

Сообщение от Vavrenyuk

Здраствуйте уважаемые программисты. Помогите пожалуйста исправить ошибку (если это можно ею назвать): я хочу поставить на кнопку выход (сделанную мной) чтобы "высовывалось" сообщение. Так вот я его сделал. Но при нажатии кнопки (выхода) всё идет нормально. А вот при нажимании на кнопку "Да" в это окне у меня повторно это сообщение "высовывается" и только при повторном подтверждении закрывается программа. Подскажите как это исправить пожалуйста. При нажимании на "Нет" всё нормально. Вот код кнопки выхода :

Код:

 if Application.MessageBox(PChar('Вы действительно хотите выйти из  программы ?'), 'Внимание !',
  MB_YesNo)=id_Yes then
  Form1.Close;

Так не должно быть. Где-то у тебя ошибка. Где - непонятно - слишком мало информации.

А вообще если тебе нужно чтобы программа спрашивала о завершении не только по этой кнопке, но и при любых попытках её завершить (например по нажатию "крестика"), то лучше проверку вынести в событие OnCloseQuery у формы вот так:

Код:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := Application.MessageBox(PChar('Вы действительно хотите выйти из  программы ?'),
                'Внимание !', MB_YesNo) = id_Yes;
end;

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

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.MainForm.Close;
end;

Естественно вопрос о завершении в этом случае тоже выскочит.