Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Реакция из компонента на OnShow формы...

Автор: GydruS 27.7.2011, 12:38

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

Есть задача - в невизуальном компоненте (потомок 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 компонента... Как быть?

Автор: GydruS 28.7.2011, 09:58

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