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;
时间: 2024-12-28 21:24:33