Question

delphi里如何动态创建WebBrowser控件，并通过其navigate()属性调出需要显示的地址。

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的文件夹呢’

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

运行测试代码截图：