delphi 覆盖 webbrowserH

Question

我尝试制作一个定制的网络浏览器，它实际上是一个具有额外功能的 Twebbrowser:当页面在 30 秒内未加载时，它会调度一个 TimerOut 事件。

所以我在 TwebbrowsersTimerOut 中添加了一个继承自 Twebbrowser 的计时器。

这个想法是在 BeforeNavigate 或 DownloadBegin 事件上计时此计时器:并在 onDownloadComplete 事件上停止计数器。

问题是我不知道如何覆盖这些事件:以及更全面的如何覆盖现有组件的事件:有人可以帮助我覆盖 TwebBrowser 组件，特别是它的事件吗？

问候

Answer 1

一般来说，事件只是可以在自定义后代中设置的普通属性。您基本上可以拦截事件并提供自己的 Controller 。

例如，我刚刚创建了一个覆盖 OnExit 事件的组件...

interface

TmyWhatever = class(TWhateverAncestor)
private
  fMyOnExit:TNotifyEvent
protected
  procedure CustomOnExitEvent(Sender:TObject);
public
  constructor Create(AOwner:TComponent); override;
published
  //we provide our own OnExit event (to be set by the developer using this component)
  property OnExit:TNotifyEvent read fMyOnExit write fMyOnExit
end;

implementation

constructor TmyWhatever.Create(AOwner:TComponent);
begin
  inherited;

  //setup our event in the parent
  inherited OnExit := CustomOnExitEvent;
end;

procedure TmyWhatever.CustomOnExitEvent(Sender:TObject);
begin
  //perhaps do custom work before the OnExit

  //and then call the intercepted OnExit event, if needed
  if Assigned(fMyOnExit) then
  begin
    fMyOnExit(Sender);
  end;

  //perhaps do custom work after the OnExit 
end;