Реакция из компонента на OnShow формы...

[GydruS]

Добрый день, уважаемые специалисты!

Есть задача - в невизуальном компоненте (потомок TComponent) нужно отреагировать на событие OnShow формы, на которой он расположен.

Я делаю это так:

TMyComponent = class(TComponent)
  private
    FOwnerOnShow: TNotifyEvent;
    procedure FShow(Sender: TObject);
    ...
...
constructor TMyComponent.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  if AOwner is TForm then begin
    FOwnerOnShow := (FOwner as TForm).OnShow;
    (FOwner as TForm).OnShow := FShow;
  end;
end;
...
procedure TMyComponent.FShow(Sender: TObject);
begin
  // do something
  if Assigned(FOwnerOnShow) then FOwnerOnShow(Sender);
end;

Проблема в том, что FOwnerOnShow = nil в момент Create компонента... Как быть?

[veniside]

> Как быть?

перенести код

  if Owner is TForm then begin
    FOwnerOnShow := (Owner as TForm).OnShow;
    (Owner as TForm).OnShow := FShow;
  end;

из Create() в перекрытый Loaded().

[GydruS]

veniside, спасибо за ответ!
Ваш способ работает!
Но, как оказалось - работает и мой )
Просто, каким-то образом в инспекторе объектов пропала связь OnShow формы и ее метода ShowForm. Но сам ShowForm был в коде формы - что и породило мое непонятие ситуации...
В общем, тему можно закрывать, спасибо!