TWebBrowser onStatusTextChange

[grominfo]

Всем привет!

Пишу компонент - наследник TWebBrowser. Мне нужно в компоненте обрабатывать событие onStatusTextChange. То есть

 {...}
type
  TAGBrowser = class (TWebBrowser)
private
 {...}
procedure StatusTextChange(Sender: TObject; const Text: WideString);
 {...}
end;

 {...}
constructor TAGBrowser.Create(AOwner: TComponent);
begin
  inherited;
 {...}
  self.OnStatusTextChange:=StatusTextChange;
end;

procedure TAGBrowser.StatusTextChange(Sender: TObject;
  const Text: WideString);
begin
  {...}
end;

Событие срабатывает. Но когда кидаешь компонент на форму и назначаешь это событие в свойствах, то его перехват в самом компоненте не работает. Что я делаю не так? На других компонентах такой трюк всегда работал.

[Аватар]

А чего он должен работать, если задавлен другой процедурой? Запомнить OnStatusTextChange перед присвоением в него. В StatusTextChange анализировать на не nil и выполнять при необходимости

[Stilet]

Чесслово помню что там есть секрет один, но не помню какой именно
Кажись у Тексейры было описано как правильно переопределять публишед события.

[grominfo]

А чего он должен работать, если задавлен другой процедурой?

Когда я писал обертки над другими компонентами, то всегда работало. Поэтому я удивился почему тут не работает

Запомнить OnStatusTextChange перед присвоением в него. В StatusTextChange анализировать на не nil и выполнять при необходимости

Можно небольшой пример? А то никак не соображу

[Аватар]

На примере TEdit. Возможно в Loaded подкрутить нужно с анализом ComponentState

  TEdit = class(StdCtrls.TEdit)
  private
    lOldOnChange: TNotifyEvent;
    procedure MyOnChange(Sender: TObject);
  protected
    procedure Loaded; override;
  end;
  TForm1 = class(TForm)
...
procedure TEdit.Loaded;
begin
  inherited;
  lOldOnChange:=OnChange;
  OnChange:=MyOnChange;
end;

procedure TEdit.MyOnChange(Sender: TObject);
begin
  Form1.Label2.Caption:=Text;
  if Assigned(lOldOnChange) then lOldOnChange(Sender);
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Label1.Caption:=Edit1.Text;
end;

Ну и динамически потом OnChange менять беда, ну или геттер и сеттер переделывать

[grominfo]

Аватар, спасибо за пример. Позже попробую

[grominfo]

Проверил на другом своем компоненте. Нужно было перехватить создание формы, а потом вернуть прежний обработчик.

Все работает. Спасибо!

Если кому нужно, то вот пример:

type
TTest = class (TComponent)
  private
    FForm: TForm;
    OldCreateForm:TNotifyEvent;
    procedure FormCreate(Sender: TObject);
  public
    Constructor Create(AOwner:TComponent);override;
    Destructor Destroy;override;
end;

implementation

{ TTest }

constructor TTest.Create(AOwner: TComponent);
begin
  inherited;
  FForm:=(AOwner as TForm);
  OldCreateForm:=FForm.OnCreate;
  FForm.OnCreate:= FormCreate;
end;

destructor TTest.Destroy;
begin
  inherited;
end;

procedure TTest.FormCreate(Sender: TObject);
begin
MessageBox(0,'','',0);
if assigned(OldCreateForm) then OldCreateForm(FForm);
end;

[grominfo]

Столкнулся с проблемой.

Когда таким образом перехватываешь событие, то при открытии проекта из инспектора удаляется процедура создания формы. Оно и понятно, так как в компоненте процедура изымается и заменяется.

Можно ли как-то не давать перехватывать это событие при открытии проекта? Я пробовал назначать условные директивы, пока до меня не дошло, что компонент лежит уже откомпилированный в dcu, и ему похер на директивы.

[grominfo]

А, все, понял. Нужно же было проверять свойство ComponentState

  if not (csDesigning  in self.ComponentState) then
   begin
    OldCreateForm:=FForm.OnCreate;
    FForm.OnCreate:= FormCreate;
  end;