自定义子类 webbrowser 不能 获得他的实例怎么改? delphi

来源:百度知道 编辑:UC知道 时间:2024/07/03 02:42:43
procedure TForm1.FormCreate(Sender: TObject);//在主窗口创建事件中加入
begin
webbrowser1:=TPanel1.Create(self); //创建对象
webbrowser1.Parent := Form1;
end;

编译不过 问题出在 webbrowser1.Parent := Form1,我改怎么改?

webbrowser1.Parent := Form1 这句是定义webbrowser1的父类为 form1?

问题不是第二句,是第一句!
var
webbrowser1: TPanel1;
begin
webbrowser1:=TPanel1.Create(self);
webbrowser1.Parent := Form1;
end;
把TPanel1改成TPanel就OK了。
var
webbrowser1: TPanel;
begin
webbrowser1:=TPanel.Create(self);
webbrowser1.Parent := Form1;
end;
如果TPanel1是你自己设计的控件。那就是这个控件没有设计好。