delphi里如何动态创建WebBrowser控件，并通过其navigate()属性调出需要显示的地址。
procedureTForm1.Button1Click(Sender:TObject);varwb:Twebbrowser;beginwb:=Twebbrowser.C...
procedure TForm1.Button1Click(Sender: TObject);
var wb:Twebbrowser;
begin
wb:=Twebbrowser.Create(self);
wb.Left:=208;
wb.Top:=32;
wb.Height:=300;
wb.Width:=500;
wb.Navigate('D:\123');
end;
我这样写为啥不能打开地址栏里显示的‘D盘里的123的文件夹呢’ 展开
var wb:Twebbrowser;
begin
wb:=Twebbrowser.Create(self);
wb.Left:=208;
wb.Top:=32;
wb.Height:=300;
wb.Width:=500;
wb.Navigate('D:\123');
end;
我这样写为啥不能打开地址栏里显示的‘D盘里的123的文件夹呢’ 展开
1个回答
展开全部
从代码看，少了一句给 WebBrowser 指定显示的容器（窗体或面板的 句柄）：
procedure TForm1.Button1Click(Sender: TObject);
var wb:Twebbrowser;
begin
wb:=Twebbrowser.Create(self);
wb.ParentWindow := Handle; //新增
wb.Left:=208;
wb.Top:=32;
wb.Height:=300;
wb.Width:=500;
wb.Navigate('D:\123');
end;
运行测试代码截图：
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
