在DesignMode中使用TWebBrowser改变了告诉内容的任何方式?

时间:2012-05-13 00:14:48

标签: delphi twebbrowser

如果将一个TWebBrowser放入DesignMode(HTMLDocument2.designMode:='On';),有没有办法在用户输入控件时检测文档的更改,类似于像TEdit这样的std ctrls的OnChange事件/ TMemo?

由于

1 个答案:

答案 0 :(得分:2)

一旦你获得IHTMLEditDesigner接口并将其挂钩到WebBrowser(你应该能够找到有关如何在网上执行此操作的资源),这是非常简单的。

然后关键部分是使用PreHandleEvent:

function TWebBrowserFrame.PreHandleEvent(inEvtDispId: Integer;
  const pIEventObj: IHTMLEventObj): HResult;
begin
  Result := S_FALSE;
  If inEvtDispId = DISPID_EVMETH_ONKEYDOWN Then
      ...
  if pIEventObj.keyCode = ... etc...
end;

这个页面有一些有用的信息:(其中DISPID常量来自...) http://www.codeproject.com/Articles/6546/Using-IHTMLEditDesigner