delphi - delphi覆盖webbrowserH

Question

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

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

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

麻烦的是我不知道如何覆盖这些事件： 以及更全局地如何覆盖现有组件的事件：有人可以帮助我覆盖 TwebBrowser 组件，尤其是它的事件吗？

问候

Answer 1

通常，事件只是可以在您的自定义后代中设置的普通属性。您基本上可以拦截事件并提供自己的控制器。

例如，我刚刚创建了一个覆盖 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;