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

[FleXik]

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

[Delphi_ProGer]

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

[FleXik]

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

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

Да, в одном потоке))

[Аватар]

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

[FleXik]

Сообщение от Аватар

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

Нет конечно, я таким не занимаюсь.

Вобщем пример кода:

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;

Не?

[FleXik]

Сообщение от Вадим Мошев

Не?

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

вот.........

[FleXik]

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

[Аватар]

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

[FleXik]

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