Delphi动态创建组件-南山古桃(原创)-关键词:Delphi,组件，动态创建

关键词:Delphi,组件，动态创建

var
MyEdit: TEdit;

//(**** 转载敬请注明－本文出处：南山古桃(nsgtao)的百度空间： ****)
procedure TForm1.FormCreate(Sender: TObject);
begin
MyEdit := TEdit.Create(self);
MyEdit.Parent := Form1;
MyEdit.Top := 100;
MyEdit.Left := 100;
MyEdit.Height := 20;
MyEdit.Width := 100;
MyEdit.Text := '南山古桃';
end;

上面是个例子，不过要分可视和不可视
区别在   Parent   为   self(不可视)   也可不加
不可视一定要Parent   放在那个控件里就写它

也就是说如果TEdit控件的Parent属性为NULL的话，是不会显示的。

如果Parent属性为其他控件的话，就会在窗口中显示TEdit控件。