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

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

← →
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]

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

---

← →
Snip ©   (2004-07-12 13:26) [10]

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

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

---

← →
pavel_pavel ©   (2004-07-12 13:35) [11]

санькс

---

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

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

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

---

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

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

---

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

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



Память: 0.47 MB
Время: 0.021 c