动态创建的WEBBROWSER 显示后 不响应鼠标键盘的操作

Question

就是说 鼠标点下去没有反应 是什么原因呢?

Answer 1

   wb[i]:=TWebbrowser.Create(Self)

Answer 2

第一个TabSheet 上的WEBBROWSER 不好用 其他的就好用 奇怪

Answer 3

wb[i].ParentWindow:=form1.PageControl2.Pages[i].Handle

Answer 4

b[i].ParentWindow:=form1.PageControl2.Pages[i-1].Handle

Answer 5

    for i:=1 to 13 do
                  begin
                   //   tabsheet[i]   :=TTabSheet.Create(Application);
                     // tabSheet[i].PageControl   :=PageControl2;                         wb[i]:=TWebbrowser.Create(Self);                       case i of
                          1: TabSheet13.InsertControl(wb[i]);
                          2: TabSheet14.InsertControl(wb[i]);
                          3: TabSheet15.InsertControl(wb[i]);
                          4: TabSheet16.InsertControl(wb[i]);
                          5: TabSheet17.InsertControl(wb[i]);
                          6: TabSheet18.InsertControl(wb[i]);
                          7: TabSheet19.InsertControl(wb[i]);
                          8: TabSheet20.InsertControl(wb[i]);
                          9: TabSheet21.InsertControl(wb[i]);
                          10:TabSheet22.InsertControl(wb[i]);
                         11: TabSheet23.InsertControl(wb[i]);
                          12: TabSheet24.InsertControl(wb[i]);
                      end;
         end;
//TabSheet[12+i].InsertControl(wb[i]);for i:=1 to 12 do
begin
wb[i].ParentWindow:=form1.PageControl2.Pages[i-1].Handle   ;
   wb[i].Navigate('www.baidu.com');
end;

Answer 6

这样也不影响鼠标操作呀,不知你是不是还有其它操作限制了鼠标操作
另外,用下面的方法指定parent
TWinControl(wb[i]).Parent := form1.PageControl2.Pages[i];

Answer 7

先问一个问题,你得wb[i]数值多大范围,你得for循环是从1开始,那么数组第一个也就是下标为0的哪去了

Answer 8

好久不用DELPHI 竟然忘了是从0开始的，，，，，，
谢谢 我先看看

Answer 9

 wb:   array[1..13] of TWebBrowser;
这么定义的 不用从0开始吧？

Answer 10

值得研究下!只是不知道樓主其它的代碼還有些什麼
我之前寫過這樣的,包括Tabsheet都 讓它自己創建http://hi.baidu.com/szba/blog/item/ef8f8c4beb9e2df883025c05.html