Копирование объектов

← →
pavel_pavel © (2004-07-12 12:53) [0]

Всем привет. Не знаю, туда ли написал (в этот ли раздел). Вопрос: как копировать объект в делфи, т.е. кнопку, например. в процессе выполнения, естественно. заранее спасибо.

← →
Sheng © (2004-07-12 12:56) [1]

Clipboard.

← →
Snip © (2004-07-12 13:01) [2]

А куда тебе его собственно надо скопировать?

← →
pavel_pavel © (2004-07-12 13:05) [3]

обьясню на примере: прога - форма, на ней кнопка. жмешь на кнопку, появляется такая же кнопка, чуть правее, например. или другая прога - форма, щелкаешь на нее, появляется другая форма, щелкаешь на нее - и.т.д.

← →
pavel_pavel © (2004-07-12 13:06) [4]

если можно, ответ распишите поподробнее

← →
b (2004-07-12 13:23) [5]

NewButton:TButton;
NewButton:=TButton.Create(Self)

← →
Snip © (2004-07-12 13:23) [6]

procedure TForm1.Button1Click(Sender: TObject); var btn: TButton; begin btn:=TButton.Create(Application); btn.Parent:=Form1; btn.Caption:=(Sender as TButton).Caption; btn.Left:=(Sender as TButton).Left+50; btn.Top:=(Sender as TButton).Top+50; btn.Height:=(Sender as TButton).Height; btn.Width:=(Sender as TButton).Width; btn.Visible:=True; btn.OnClick:=Button1Click; end;

я думаю понятно?

← →
clickmaker © (2004-07-12 13:24) [7]

b (12.07.04 13:23) [5]

+ NewButton.Assign(Button)

← →
miwa © (2004-07-12 13:24) [8]

Так это не копирование, а скорее создание обьекта. Есть хорошая статья "Жизнь и сметь в режиме run-time". Весьма рекомендую.

← →
miwa © (2004-07-12 13:26) [9]

Мда, ну и очередь :о)

> b (12.07.04 13:23) [5]
>
> + NewButton.Assign(Button)

дык кнопка появиться на том же месте...

санькс

> Snip © (12.07.04 13:26) [10]
> дык кнопка появиться на том же месте...

Дык проще сделать Assign, а потом только Left := Left + 50

Ну вообще ты прав, не спорю....

Копирование объектов Найти похожие ветки