代码创建组件

ntcp

在运行期是可以通过代码来创建组件，例如，创建一个Button，代码示例如下：

var
  lBtn: TButton;
begin
  lBtn := TButton.Create(nil);
  try
    { 指定其父 }
    lBtn.Parent := Panel1;
    lBtn.Left := 100;
    lBtn.Top := 50;
    Dialogs.ShowMessage('已经创建按钮');
  finally
    { 使用后要释放对象 }
    lBtn.Free;
  end;
end;