GetComponent (Delphi)

Description

This example uses a button and a group box on a form. When you click the button, the button is copied to the Clipboard and then retrieved from the Clipboard and placed in the new parent of the button, the group box. The name of the original button is changed to avoid having two components with the same name at the same time.

Code

implementation

uses Clipbrd;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  groupButton : TButton;
begin
  { Copy the button to the clipboard. }
  Clipboard.SetComponent(Button1);
  { Rename the button that is still on the form. }
  Button1.Name := 'OriginalButton';
  { Now retrieve the button from the clipboard }
  { and add it to GroupBox1. }
  { Note that the clipboard button is named Button1, while }
  { the source button has been renamed to 'OriginalButton'. }
  groupButton := TButton(Clipboard.GetComponent(Self, GroupBox1));
  groupButton.top := Button1.top + 30;
end;

initialization
  RegisterClasses([TButton]);{ Registers the TButton class. }

Uses

• Vcl.Clipbrd.TClipboard.GetComponent ( fr | de | ja )
• Vcl.Clipbrd.TClipboard.SetComponent ( fr | de | ja )