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

← →
Димон (2008-02-20 09:28) [0]

Доброго времени суток. Мастера, помогите советом. Я нашел в сети функцию которая клонирует формы. Эта функция клонирует польностью со всеми компонентами родителя, а мне нужно только один коммпонент из родителя а остальные не нужны. Подскажите как это реализовать ???

Вот эта функция:

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;

← →
allucard (2008-02-20 09:46) [1]

Посмотри что в WriteComponent, скопируй, переделай.

← →
{RASkov} © (2008-02-20 10:04) [2]

> [0] Димон (20.02.08 09:28)
> а мне нужно только один коммпонент из родителя а остальные
> не нужны.

Дык это уже не клон... Создавай копию как тебе нужно...

*"копию" - в кавычках :)

Клонирование форм Найти похожие ветки