Блокировка одного MessageDlg из двух, как?

[Вадим Мошев]

Вы бы рассказали, как это сделали (если это не секрет), так как другим это может оказаться полезным тоже...

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

MessageDlg - функция, такая же, как MessageBox, возвращает код нажатой кнопки.
mb**** коды(MsgDlgBtns) <=> равносильны mr***(ModalResult)
mbOK = mrOK

Потому:

var
 a:integer;
begin
  a:=MessageDlg(....,[mbOK,mbCancel],..); диалог
  
   ... сотни кода

  if a = mrOK then


 ещё тысячи кода

  if a = mrCancel Then

  ... ещё 100500 строк кода

 ещё условия...
end;

[FleXik]

var
i:integer;
begin
i:=0;
while i<3 do begin
Form1.Edit1.Text:='1';
if Pos('1', Edit1.Text)<>0 then
MessageDlg('варнинг', mtWarning, [mbOK], 0);
inc(i);
if Pos('1', Edit1.Text)=0 then 
MessageDlg('финиш', mtInformation, [mbOK], 0);
end;
end;

естественно это как пример, а так у меня код другой но смысл тот же, т.е просто в if Pos менять <>0 на =0 и тогда все работает отлично.