messageBox

[Andrey174rus]

Здравствуйте! У меня проблемка - не пойму как сделать для messageBox(Handle,'Сохранить изменения в БД перед выходом?','Выход',
mb_YesNoCancel or mb_iconquestion) три обработчика событий: по нажатию на кнопку Да - Сохранение, по кнопке Нет - выход, а по нажатию Отмена - обратно на форму. По нажатию кнопки ДА и Отмена я понял как сделать, а вот Нет не знаю как там вписать...

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
If messageBox(Handle,Сохранить изменения в БД перед выходом?','Выход',
mb_YesNoCancel or mb_iconquestion)=mrYes then
Button2.Click
else CanClose:=false;
end;

[Alex Cones]

If ... Then ... Else If ... Then ... Else If ... Then ... Else ...
И так до бесконечности...

Или присваиваем
N:=...
If N = mrYes then
If N = mrNo ...
mrCancel ...

[TwiX]

case messageBox(Handle,'Сохранить изменения в БД перед выходом?','Выход',
mb_YesNoCancel or mb_iconquestion) of
mrYes:ShowMessage('YES pressed');
mrNo:ShowMessage('NO pressed');
mrCancel:ShowMessage('CANCEL pressed');
end;

Так же можно добавлять другие варианты, если кнопок больше

Добавлено:
Опередил Алекс =) Но у меня 'прямей' способ

[Andrey174rus]

))) всем спасибо за помощь

[mutabor]

case MassageBox() of
//и тут перечисляй, что ты хочешь обработать

p.s. Ого как вас тут много )