freepascal.ru

Доброго времени суток!

Возник вот такой вопрос, можно ли скопировать компонент при выполнении программы?
имеем flv0 : tfilelistview, который расположен на tabpage0, нужно создать полную его копию при нажатии клавиши на вкладке tabpage1

я попробывал вот так:

Код: Выделить всё

var
  flv : tfilelistview;

begin
   flv := tfilelistview.create(self);
   flv := flv0;
   flv.name := 'flv1';
   flv.parentwidget := tabpage1;

компонент на вкладке 1 появился, но на вкладке 0 исчез (я так понял, что он не скопировался, а переносся).

нельзя.

надо создать новый и настроить его также как первый.

либо создавать через .create(self)
и копировать все свойства

печально, столько "лишних" строк ...

Use copycomponent() procedure.

Martin

это не процедура, а функция

где-то так ...

Код: Выделить всё

uses ... mseclasses;
...
procedure tmainfo.copy_component(const sender: TObject);
var b : tbutton;
begin
b := tbutton.create(self);
b := copycomponent(tbutton2,nil,nil,nil,nil,nil) as tbutton;
with b do
   begin
    name := 'sss';
    caption := 'new';
    bounds_y := 70;
    parentwidget := mainfo;
   end;
end;

работает, однако.
свойство name менять в обязательном порядке, иначе нарветесь на ошибку "dublicate name"

Добавлено спустя 6 минут 30 секунд:
p.s. осталось сообразить, как все это прикрутить к своей программе :-\