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);