Копирование компонентов

[TotKtoNado]

Всем приветмне нужно при нажатии на буттон копировался панель с всеми в нем компонентами и распологался на 1 пиксель ниже верхнего . Пожалуйста объяснить как это сделать?

[MyLastHit]

Процесс Copy/Paste - это работа с буфером обмена. Учитесь правильно формулировать свой вопрос. Впринципи понятно, что ты хочешь. Можно так:
Обьявляем глобально

pnl:array[1..2] of TPanel;

В OnCreate формы:

pnl[1]:=TPanel.create(self);
with pnl[1] do
begin
  parent:=form1;
  height:=..
  top:=..
  left:=..
  width:=..
end;
with компонент1 do //тут компоненты что у тебя должны быть на панели, например button1;
begin
  parent:=pnl[1];
  top:=..
  left:=..
end;
with компонент2 do
begin
  parent:=pnl[1];
  top:=..
  left:=..
end;
....

В обработчике кнопки все тоже самое, только вместо pnl[1] - pnl[2], ну и топ у pnl[2] поменяй на тот, который тебе нужен.

[TotKtoNado]

Сообщение от MyLastHit

Процесс Copy/Paste - это работа с буфером обмена. Учитесь правильно формулировать свой вопрос. Впринципи понятно, что ты хочешь. Можно так:
Обьявляем глобально

pnl:array[1..2] of TPanel;

В OnCreate формы:

pnl[1]:=TPanel.create(self);
with pnl[1] do
begin
  parent:=form1;
  height:=..
  top:=..
  left:=..
  width:=..
end;
with компонент1 do //тут компоненты что у тебя должны быть на панели, например button1;
begin
  parent:=pnl[1];
  top:=..
  left:=..
end;
with компонент2 do
begin
  parent:=pnl[1];
  top:=..
  left:=..
end;
....

В обработчике кнопки все тоже самое, только вместо pnl[1] - pnl[2], ну и топ у pnl[2] поменяй на тот, который тебе нужен.

он у меня ругается что то
pnl:array[1..2] of TPanel;

[MyLastHit]

Может скинешь, что за ошибка вообще? Хотя я догадываюсь, что ты не прописал ExtCtrls в юзес. Или объявил глобальный массив не там.

PS: Надо будет написать программку для экстросенсорики. Будет угадывать, что за ошибки

[TotKtoNado]

Сообщение от MyLastHit

Может скинешь, что за ошибка вообще? Хотя я догадываюсь, что ты не прописал ExtCtrls в юзес. Или объявил глобальный массив не там.

PS: Надо будет написать программку для экстросенсорики. Будет угадывать, что за ошибки

и мне еще не понятно ну и топ у pnl[2] поменяй на тот, который тебе нужен.

[MyLastHit]

Ладно, щас напишу тебе процедуру...Тебе самому удобно читать код, в котором в Type сто+ строк? Может лучше бы кодом создавать. Щас я тебе накидаю как я вижу решение твоей проблеммы.


Update: Готово. На изучение тебе.
Особое внимание на uses, pnl[1]:=Tpanel.create(self) и на parent:=pnl[1].