![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Копирование объектов [D5, Win2k]
pavel_pavel © (2004-07-12 12:53:00)Всем привет. Не знаю, туда ли написал (в этот ли раздел). Вопрос: как копировать объект в делфи, т.е. кнопку, например. в процессе выполнения, естественно. заранее спасибо.
Snip (2004-07-12 13:38:00) [1]Ну вообще ты прав, не спорю....
clickmaker (2004-07-12 13:36:00) [2]
> Snip © (12.07.04 13:26) [10]
> дык кнопка появиться на том же месте...
Дык проще сделать Assign, а потом только Left := Left + 50
pavel_pavel (2004-07-12 13:35:00) [3]санькс
miwa (2004-07-12 13:26:00) [4]Мда, ну и очередь :о)
Snip (2004-07-12 13:26:00) [5]
> b (12.07.04 13:23) [5]
>
> + NewButton.Assign(Button)
дык кнопка появиться на том же месте...
clickmaker (2004-07-12 13:24:00) [6]b (12.07.04 13:23) [5]
+ NewButton.Assign(Button)
miwa (2004-07-12 13:24:00) [7]Так это не копирование, а скорее создание обьекта. Есть хорошая статья "Жизнь и сметь в режиме run-time". Весьма рекомендую.
b (2004-07-12 13:23:00) [8]NewButton:TButton;
NewButton:=TButton.Create(Self)
Snip (2004-07-12 13:23:00) [9]
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;
я думаю понятно?
pavel_pavel (2004-07-12 13:06:00) [10]если можно, ответ распишите поподробнее
pavel_pavel (2004-07-12 13:05:00) [11]обьясню на примере: прога - форма, на ней кнопка. жмешь на кнопку, появляется такая же кнопка, чуть правее, например. или другая прога - форма, щелкаешь на нее, появляется другая форма, щелкаешь на нее - и.т.д.
Snip (2004-07-12 13:01:00) [12]А куда тебе его собственно надо скопировать?
Sheng (2004-07-12 12:56:00) [13]Clipboard.