delphi createForm 作用

标签：var   组件   orm   elf   self   show   mem   line   cli   

createForm可以创建任何TComponent派生的类对象，因此我们可以使用它创建任何的VCL组件，例如下面的程序

procedure TForm6.btn1Click(Sender: TObject);
var
ameno: TMemo;
begin
Application.CreateForm(TMemo, ameno);
ameno.Parent := Self;
ameno.Lines.Add(‘3333333333333333333333333333333333333‘);
ameno.Show;
end;

delphi createForm 作用

标签：var   组件   orm   elf   self   show   mem   line   cli   

原文地址：http://www.cnblogs.com/yangxuming/p/7439676.html