MessageBox

[Nice42ru]

Здравствуйте, такой вопрос:
Как сделать чтобы при выскакиевание messagebox

var otv:word;
begin
 otv := MessageBox(handle,PChar('Вы выбрали 1!'), PChar('Вы уверены?'), 52);
 if otv=IDYES
  then ;
 if otv=IDNO
  then ;

при нажатии на Нет, вся процедура остановилась, тоесть отменилась

[VintProg]

Вот держи:

var otv:word;
begin
 otv := MessageBox(handle,PChar('Вы выбрали 1!'), PChar('Вы уверены?'), 52);
 if otv=IDYES then;
  
 if otv=IDNO then;
   exit;

[Nice42ru]

Спасибо!!!!!!

[Человек_Борща]

проще так

case MessageBox(тут наствойки..., MB_OKCANCEL or MB_ICONWARNING) of
IDOK:
действие при окее.

IDCancel: exit;

[bitSoft]

Case MessageBox(handle,PChar('Вы выбрали 1!'), PChar('Вы уверены?'), 52); of
 idYes : ;
 inNo  : Exit;
end;

[FaTaL]

Ну вот тогда ещё проще

If MessageBox (Handle, 'Вы уверены?', 'Вы выбрали 1', mbYesNo or mb_IconQuestion) = mrNo then exit else и тут если нажали Да

[rdama]

Ребят ну Вы дружно накинулись.
Как я понял человек просто не знал оператор Exit.