Delphi - TWebBrowser 问题

Question

两个简单的问题

1. 如何将焦点设置到 TWebBrowser？这样鼠标滚轮就可以滚动显示，而不必先在 TWebBrwoser 显示区域内单击。它有一个不执行任何操作(或似乎不执行任何操作)的 setfocus 方法。

2. 在 TWebBrowser 中，右键单击显示的链接并选择属性。 “确定”和“取消”按钮被禁用，您无法关闭该对话框。您需要结束应用程序的任务才能终止它。

有什么想法吗？

谢谢，杰森。

Answer 1

经过大量网络搜索后问题 1 的答案....

 with WebBrowser1 do
 if Document <> nil then
 with Application as IOleobject do
 DoVerb(OLEIVERB_UIACTIVATE, nil, WebBrowser1, 0, Handle, GetClientRect);