[Vavrenyuk]

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

Код:

1 2 3

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

[poli-smen]

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

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

Код:

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

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

Код:

1 2 3 4 5

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

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

Код:

1 2 3 4

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

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