clipboard를 이용해서 간단하게 컴포넌트를 복사하는 예제를 소개 합니다.
uses Clipbrd;
.
.
.
procedure TForm1.Button1Click( Sender : TObject );
begin
Clipboard.SetComponent( Button1 ); // <- clipborad 로 컴포넌트 복사
Button1.Name := 'OriginalButton'; // <- 이름이 중복되지 않도록 원본의 이름을 변경
Clipboard.GetComponent( Self, GroupBox1 ); // <- 컴포넌트를 clipboard에서 가져온다
end;
.
.
.
initialization
RegisterClasses( [ TButton ] ); // <- 위의 기능을 사용하기 위해서는 복사하려는
// 컴포넌트 class를 등록해야 한다네요...
|