Скачать: CL | DM;

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

← →
Димон   (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)
> а мне нужно только один коммпонент из родителя а остальные
> не нужны.

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c