Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Клонирование форм [D7, XP]

Димон © (2008-02-20 09:28:00)
Доброго времени суток. Мастера, помогите советом. Я нашел в сети функцию которая клонирует формы. Эта функция клонирует польностью со всеми компонентами родителя, а мне нужно только один коммпонент из родителя а остальные не нужны. Подскажите как это реализовать ???

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

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;

{RASkov} (2008-02-20 10:05:00) [1]
*"копию" - в кавычках :)

{RASkov} (2008-02-20 10:04:00) [2]
> [0] Димон (20.02.08 09:28)
> а мне нужно только один коммпонент из родителя а остальные
> не нужны.

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

allucard (2008-02-20 09:46:00) [3]
Посмотри что в WriteComponent, скопируй, переделай.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »