Form - clonando um form

Clonando um Form

1: Adicione alguns componentes no form;

2: Adicione um botão no form e no evento onClick do mesmo digite o código abaixo;

3:

var

  Ms : TMemoryStream;

  NewForm : TForm1;

begin

  Ms := TMemoryStream.Create;

Try

  Ms.WriteComponent(Form1);

  NewForm := TForm1.CreateNew(Application);

  Ms.Position := 0;

  Ms.ReadComponent(NewForm);

  NewForm.Show;

  ShowMessage('Mova o Form de lugar')

Finally

  Ms.Free;

end;

Execute o programa e clique no botão, com este exemplo o clone do form é criado em cima do form orginal, para perceber a mudança arraste o form criado.