请问在一个窗体中怎么动态生成一个控件(在另外一个窗体上)

Question

题目如上急

Answer 1

unit Unit2;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unit1, StdCtrls;type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private
    procedure ButtonClick(Sender: TObject);
  public
    { Public declarations }
  end;var
  Form2: TForm2;implementation{$R *.dfm}procedure TForm2.ButtonClick(Sender: TObject);
begin
  ShowMessage('Just a Test');
end;procedure TForm2.FormCreate(Sender: TObject);
var
  btn:TButton;
begin
  btn:=TButton.Create(Form1);
  btn.Left:=10;
  btn.Top:=10;
  btn.Caption:='Test';
  btn.OnClick:=ButtonClick;
  btn.Parent:=Form1;
end;end.

Answer 2

procedure TForm2.FormCreate(Sender: TObject);
var
  btn:TButton;
begin
  if assigned(Form1) then
  begin
    btn := TButton.Create(Form1);
    btn.Left := 10;
    btn.Top := 10;
    btn.Caption := 'Test';
    btn.OnClick := ButtonClick;
    btn.Parent := Form1;
  end;
end;