delphi createForm 作用

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;

 

posted @ 2017-08-27 09:59  夏天的西瓜君  阅读(381)  评论(0编辑  收藏  举报