您现在的位置:首页 >> VCL >> VCL >> 内容

如何动态克隆Delphi窗体

时间:2011/9/3 16:24:55 点击:

  核心提示:procedure FormClone(form : TForm) ;var ms : TMemoryStream; clone : TForm;begin ms := TMemoryStream.C...
procedure FormClone(form : TForm) ;
var
   ms : TMemoryStream;
   clone : TForm;
begin
   ms := TMemoryStream.Create;
   try
     ms.WriteComponent(form) ;
     ms.Position := 0;
     clone := TFormClass(form.ClassType).CreateNew(Application) ;
     ms.ReadComponent(clone) ;

     clone.Left := form.Left + 10;
     clone.Top := form.Top + 10;
     clone.Show;
   finally
     ms.Free;
   end;
end;

//Usage
procedure TForm1.Button1Click(Sender: TObject) ;
begin
   FormClone(Form1) ;
end;

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
本类推荐
  • 没有
本类固顶
  • 没有
  • 盒子文章(www.2ccc.com) © 2020 版权所有 All Rights Reserved.
  • 沪ICP备05001939号