//在delphi中克隆窗体
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
procedure FormClone(form : TForm) ;
var
begin
end;
//Usage
procedure TForm1.Button1Click(Sender: TObject) ;
begin
end;