Проблема с ShowMessage

[~LiS~]

С кнопки SpeedButton запускаеться If. Что то вроде If a=b then a+b esle ShowMessage(' А не равно Б') ; ...Когда идёт выбор второй части(ShowMessage(' А не равно Б')), на Форме вылетает сообщение и нельзя совершать никаких действий пока не нажмёшь кнопку Ок. У меня теперь почему то можно и при повторном нажатии на SpeedButton появляеться аналогичное сообщение! Вопрос:Как сделать что бы было как раньше?
Может быть решение очевидно, но я его не вижу! Поэтому прошу всех кто может... помогите!

[_Dmitry]

Наверно используешь компоненты сторонних разработчиков, какие-нибудь скины. К примеру в AlphaControls с определенной периодичностью такой глюк появляется.

[~LiS~]

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

Наверно используешь компоненты сторонних разработчиков, какие-нибудь скины. К примеру в AlphaControls с определенной периодичностью такой глюк появляется.

Всё сделанно с помощь стандартных компонент.

[mihali4]

Так вы приведите свой обработчик. Или снова вызывать экстрасенса?

[Квэнди]

этот вариант возможен если ты используешь функцию dll в которой вызывается сообщение не с помощью showmessage а с помощью api функции. Либо ты используешь не showmessage )

[~LiS~]

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

Так вы приведите свой обработчик. Или снова вызывать экстрасенса?

Гм.. Если вы не против я просил бы вас скачать всю программу по адресу http://ifolder.ru/4089420 . В настройках я уверен. на других проектах работает. А этот переделывать с нуля времени у меня уже нет.
Файл - архивный. Отсутствие вирусов 100%!!!
Очень прошу помочь!!!

[mihali4]

Скачал. Начал смотреть.
Сразу - бред в файле проекта:

begin
  Application.Initialize;
  F := TF.Create(Application);
  F.Show;
  F.Update;
  while   f.PB.Position <> f.PB.Max  do
  Application.ProcessMessages ;
  Application.Title := 'Плющев А.А.';
  Application.CreateForm(TFormOsn, FormOsn);
  F.Hide;
  F.Free;
  Application.CreateForm(TFormOsn, FormOsn);
  Application.Run;
end.

Дальше - ShowMessage закомментированы, вместо них вставлены MessageDlg... И что? Если вы хотели бы, чтобы диалоги отрабатывали так же, как простой показ сообщений, то... увы!
Я бы вам посоветовал связку таймер+панель, там ничего нажимать не придется.
Буду смотреть дальше...

Так. Криминала не нашел.
Дело вкуса, конечно, но конструкцию типа

Var
  i, ButtonSelected: Integer;

begin
 If MDIChildCount <> 0 Then
  ButtonSelected := MessageDlg('Вы действительно хотите удалить все MDI окна?',
      mtConfirmation, mbYesNo, 0)
    Else
   ShowMessage('Не открыто ни одного окна!');
  If ButtonSelected = 4 Then
    exit
  Else
  For i := 0 to MDIChildCount-1 Do
    MDIChildren[i].Close;
end;

я бы оформил по-другому:

var i: integer;
begin
 if MDIChildCount=0 then
begin
ShowMessage('Не открыто ни одного окна!');
exit;
end;
if MessageDlg('Вы действительно хотите удалить все MDI окна?',
mtConfirmation, mbYesNo, 0)=mbYes then
  For i := 0 to MDIChildCount-1 Do
    MDIChildren[i].Close;
end;

[~LiS~]

Да... В файле проекта бред. Спасибо, поправил!
вопрос: в MessageDlg не предусмтренна функция заморозки формы и всех её функций до продтверждения сообщения?(скрин 1).
В нижепредставленной процедуре ShowMessage не заккоментирован но работает не так как надо.(Или я просто что не недопонял?). Вместо одного окна ShowMessage и последующей заморозки формы у меня при нажатии кнопки "Изменить название окон MDI"( при отстствии окон) выводиться сообщение о невозможности их (Не открыто ни одного дочернего окна!') и при повторном нажатии кнопки "Изменить название окон MDI" появляеться ещё одно такое же окно поверх старого!(Скрин 2). Я в недоумении!

Var
  i, ButtonSelected: Integer;

begin
 If MDIChildCount <> 0 Then
  ButtonSelected := MessageDlg('Вы действительно хотите удалить все MDI окна?',
      mtConfirmation, mbYesNo, 0)
    Else
   ShowMessage('Не открыто ни одного окна!');
  If ButtonSelected = 4 Then
    exit
  Else
  For i := 0 to MDIChildCount-1 Do
    MDIChildren[i].Close;
end;

Скрин 1.
1.jpg

Скрин 2.
2.jpg

3. Ваше оформление конструкции признаю более грамотным!!!
Прошу не обращать внимание на возможно неграмотное объяснение проблемы.

[Квэнди]

Значит я все- таки угадал ))

[mihali4]

при повторном нажатии кнопки "Изменить название окон MDI" появляеться ещё одно такое же окно поверх старого

Проблему можно решить двояко:
1-й вариант - перевести свойство кнопки Enabled в False первой строчкой в обработчике кнопки, а последней строчкой восстанавливать Enabled в True.
2-й вариант, мой любимый. Добавляем таймер, допустим, на полторы секунды. Для вывода сообщений используем плавающую панель. Плавающая потому, что мы при выводе любого сообщения можем задать ей: координаты, размер, параметры шрифта, цвет самой панели...
Согласитесь, сообщение об успешном завершении операции резонно выдать в виде зеленого прямоугольника с желтым текстом, а при неудаче - красный прямоугольник.
То есть измененный в соответствии с этим предложенный мной ранее вариант будет выглядеть так:

var i: integer;
begin
 if MDIChildCount=0 then
begin
PanelShow.Color:=clRed;
PanelShow.Font.Color:=clYellow;
PanelShow.Caption:=('Не открыто ни одного окна!');
PanelShow.Visible:=True;
TimerShow.Enabled:=PanelShow.Visible;
exit;
end;
if MessageDlg('Вы действительно хотите удалить все MDI окна?',
mtConfirmation, mbYesNo, 0)=mbYes then
  For i := 0 to MDIChildCount-1 Do
    MDIChildren[i].Close;
PanelShow.Color:=clGreen;
PanelShow.Font.Color:=clYellow;
PanelShow.Caption:=('Окна успешно удалены');
PanelShow.Visible:=True;
TimerShow.Enabled:=PanelShow.Visible;
end;

//в обработчике таймера:
TimerShow.Enabled:=False;
PanelShow.Visible:=TimerShow.Enabled;

При этом никаких ненужных и лишних телодвижений делать не придется. Сообщение отработает и само уберется.