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

GydruS

Дата 27.7.2011, 12:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 1.10.2010

Репутация: нет
Всего: нет

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

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

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 1.10.2010

Репутация: нет
Всего: нет

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »