Клонирование формы

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Оформил: DeeCo

Автор: http://www.swissdelphicenter.ch

procedure TForm1.Button1Click(Sender: TObject);

var

ms: TMemoryStream;

newform: TForm1;

begin

ms := TMemoryStream.Create;

try

ms.WriteComponent(Form1);

newform := TForm1.CreateNew(Application);

ms.Position := 0;

ms.ReadComponent(newform);

{ show the new form. Note that it will appear exactly on top of the

original! You may want to change its Left and Top property to move it

a bit.

Zeigt die neue Form. Die neue Form erscheint genau oberhalb der

original form. Die Left, Top Properties mussen evtl. noch angepasst werden

}

newform.Show;

finally

ms.Free

end;

end;

{/codecitation}

Добавить комментарий