выход из программы...

[Vavrenyuk]

Решил написать одну программу. Хотел сделать чтобы при нажатии на крестик вверху формы красный выходило сообщение о выходе с ответами Да и Нет. Когда нажимаю на этот крестик сообщение выходит (с ним всё нормально вроде) но когда нажимаю на Да то сообщение прячется и мгновенно включается (как бы перезапускается). Нажимая на Нет выходит из программы. Уважаемые программисты, помогите исправить эту ошибку.
Вот обработчик события OnClose главной формы:

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

[FaTaL]

Покажите Ваш код.

[Vavrenyuk]

Смотрите выше

[Mad_Cat]

по уму этот вопрос надо в OnCloseQuery задавать

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

[Stilet]

Используй OnCloseQuery

procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 CanClose:=MessageBox(GetForegroundWindow,'','',MB_YESNO)=ID_YES;
end;

Выход разрешается только если нажать Йес

[Vavrenyuk]

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

Используй OnCloseQuery

procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 CanClose:=MessageBox(GetForegroundWindow,'','',MB_YESNO)=ID_YES;
end;

Выход разрешается только если нажать Йес

О спасибо Вам большое. Всё получилось. Я просто только начинаю изучать по книге. Видимо там ошибка.

Извините, а не подскажите как сделать тоже самое на кнопку выход ? Ошибка при этом коде получается.

[Yurk@]

здеся не смотрел http://programmersforum.ru/showthrea...20#post1129720
?

[Vavrenyuk]

Сообщение от Yurk@

здеся не смотрел http://programmersforum.ru/showthrea...20#post1129720
?

Мне именно что-бы на кнопку "выход" сделанную мной. А не на крестик.

[Stilet]

А как ты описал свою кнопку выхода?

[Vavrenyuk]

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

А как ты описал свою кнопку выхода?

Сначала так как написали Вы (была ошибка). Потом как я писал сначала(вышло тоже самое как я и описал в начале).