想写浏览器的进来!

Question

在pagecontrol的onchange里面写：
webbrowser.width:=webbrowser.width+1;
webbrowser.width:=webbrowser.width-1;搞定！

Answer 1

to stanely(俺是邢她汉子)你确定?

Answer 2

还好我的浏览器在“华军软件园”没问题!
问题在用脚本关闭WebBrowser上!初始化OLE对象!加上,用来在关闭WebBrowser后关闭PAGE!
procedure TMainForm.ApplicationMessage(var Msg: TMsg; var Handled: Boolean);
var
  WB:TWebBrowser;
begin
  WB:=((self.PageControl.ActivePage) as TTabSheetWithEM).WebBrowser;
  if (Msg.message = WM_CLOSE) and (Msg.hwnd = WB.Handle) then
  begin
    ((self.PageControl.ActivePage) as TTabSheetWithEM).Free;
  end
  else
    inherited;
end;下面的代码有问题!
for n:=0 to PageControl.PageCount-1 do
ppdisp:=((self.PageControl.Pages[n]) as TTabSheetWithEM).WebBrowser.Application;self.PageControl.ActivePage:=tabwb;
ppDisp := tabwb.WebBrowser.DefaultInterface;

Answer 3

我当然确定！
我做过n times
我也是用TTabSheet结合webbrowser写的类

Answer 4

我当然确定！
我做过n times
我也是用TTabSheet结合webbrowser写的类

Answer 5

我当然确定！
我做过n times
我也是用TTabSheet结合webbrowser写的类