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

Вобщем если в работе софт видит определенное число то выскакивает первый и второй MessageDlg, но мне нужно второй MessageDlg блокировать (что бы он не выскакивал), при чем удалять код нельзя, как это реализовать? Спасибо.
9 ответов

У Вас код есть? Вызываються в одном потоке?


У Вас код есть? Вызываються в одном потоке?
Да, в одном потоке))


Если бы код был, не было бы проблем с его изменением. А так попытка подавить сообщение от сторонней проги. Не?


Если бы код был, не было бы проблем с его изменением. А так попытка подавить сообщение от сторонней проги. Не?
Нет конечно, я таким не занимаюсь.Вобщем пример кода:
begin
Form1.Edit1.Text:='1';
if Pos('1', Edit1.Text)<>0 then
MessageDlg('варнинг', mtWarning, [mbOK], 0);
MessageDlg('финиш', mtInformation, [mbOK], 0); // если выскакивает окно варнинг, это окно надо блочить,
что бы оно не показывало, а если варнинг не выскакивает то что бы показывало это окно (окно финиш)
end;
--------------------------------- я понимаю что можно добавить else, но в моем случае второй MessageDlg слишком далеко от первого находится, и переносить код не вариант т.к у меня стоит цикл тогда варнинг показывает только тогда когда цикл дойдет до конца а не тогда когда найдет цифру 1...


begin
Form1.Edit1.Text:='1';
if Pos('1', Edit1.Text)<>0	then MessageDlg('варнинг', mtWarning, [mbOK], 0)	else MessageDlg('финиш', mtInformation, [mbOK], 0); // если выскакивает окно варнинг, это окно надо блочить,	//что бы оно не показывало, а если варнинг не выскакивает то что бы показывало это окно (окно финиш)
end;
Не?


Не?
я понимаю что можно добавить else, но в моем случае второй MessageDlg слишком далеко от первого находится, и переносить код не вариант т.к у меня стоит цикл тогда варнинг показывает только тогда когда цикл дойдет до конца а не тогда когда найдет цифру 1...
вот.........


почти разрулил...


Присвойте False переменной до 1-го сообщения. Если 1-ое выдается, засуньте в нее True. 2-ое выдавайте если в той переменной False. Примерно в таком направлении


все я разрулил полностью))) тему закройте, еле еле блин..