Вопрос по message

[bakanaev]

Добрый день\вечер
Есть у меня 3 константы, есть функция обрабатывающая сообщения

const
  WM_NEW_1 = WM_APP + 1001;
  WM_NEW_2 = WM_APP + 1002;
  WM_NEW_3 = WM_APP + 1003;

  ...

type 
 MainClass = class
   ....
   procedure UpdateStatus(var Msg: TMessage); message WM_NEW_1 or WM_NEW_2 or WM_NEW_3;
 end;

procedure MainClass.UpdateStatus(var Msg: TMessage);
begin
    case Msg.Msg of
      WM_NEW_1:
        sLabel1.Caption := '1';
      WM_NEW_2:
        sLabel2.Caption := '2';
      WM_NEW_3:
       sLabel3.Caption := '3';
    end;
end;

Но так не работает, не вызывается процедура UpdateStatus . Если указывать одну константу, то все ок.
Подскажите пожалуйста, как правильно указать все 3 константы, что бы вызывалась процедура UpdateStatus

[Пепел Феникса]

сделать три процедуры.

тем более что ваш код от этого лишь выиграет.

в вашем случае обработчик поставился на сообщение: (WM_NEW_1 or WM_NEW_2 or WM_NEW_3)

[Vapaamies]

Сообщение от Пепел Феникса

тем более что ваш код от этого лишь выиграет.

Полностью согласен.

Тем не менее, если хочется поизвращаться с case, вместо UpdateStatus нужно перекрыть TObject.DefaultHandler и расписать case в нем.

[min@y™]

А можно юзать событие Application.OnMessage, если в проекте допустимо uses Forms.