Решено: проблема с "message LM_KILLFOCUS"

[RomanS]

Здравствуйте!
Хочу добавить в компонент реакцию на потерю фокуса, делаю новый компонент с наследованием, но
у меня возникла проблема с установкой у процедур событий message.
Дело в том, что в родительском компоненте уже реализована процедура на потерю фокуса, и как только я в своем компоненте определяю процедуру

Код: Выделить всё

    procedure WMKillFocus(var Message: TLMKillFocus); message LM_KILLFOCUS;

то в родительском компоненте аналогичная процедура перестает вызываться...

Набросал небольшой тестовый пример с наследованием для TEdit (см. ниже), и выяснил следующее:
если классы описаны в одном модуле, то события по message отрабатывают у всех дочерних классах, как только я разнес классы по разным ютинам, события вызываются только у классов определенных в самом верхнем юните...

Мне нужна помощь, посоветуйте, что делать????

OC Win SP3, FPC 2.5.1 SVN 16327, Lazarus 0.9.29 SVN 28184

[Maxizar]

Ответ банален и прост: замените

Код: Выделить всё

  TMyEdit2 = Class(TEdit)
  private
    procedure WMKillFocus(var Message: TLMKillFocus); message LM_KILLFOCUS;
  end;


на код:

Код: Выделить всё

  TMyEdit2 = Class(TEdit)
  protected
    procedure WMKillFocus(var Message: TLMKillFocus); message LM_KILLFOCUS;
  end;


Если не видете разницу подскажу я заменил private на protected - которые влияют на область видимости процедур, методов, свойств. protected - позволяет наследникам обращение к методам и перегружать их. При замене у меня ваш код работает так как вы задумали идет перехват всех событий. Так что более подробнее вернитесь к изучению области видимости в классах...

[RomanS]

огромное спасибо
век живи, век учись...