delphi 动态控件????

先写好一个过程，将之赋值给你动态创建的按键BUTTON 即可!

procedure click(sender:Tobject)

begin

....

end

BUTTON1.onclick:=click即可！！！(BUTTON1是你动态创建的)

procedure TForm1.CreateButton

var

button: TButton //定义

begin

button := TButton.Create(Self) //创建控件关键的一句（参数为self的时候不需要释放内存）

button.Parent := Self //此行必须要，不然不能显示在Form1上面

button.Left := 30

button.Top := 30

end

从代码看，少了一句给 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

运行测试代码截图：

---