关于动态创建控件

Question

procedure TForm2.FormCreate(Sender: TObject);
var
  Label1: TLabel;
begin
  Label1 := TLabel.Create( Self );
  Label1.Parent := Self;
  Label1.Caption := '第二个窗口';
...
end;兄弟，多练练基本功。

Answer 1

不行呀，它编译时在procedure TForm2.FormCreate(Sender: TObject); 的TForm2后面停下了
说 ';'expected but '.' found 啊我的Form2 是动态创建的啊

Answer 2

Form2单元里加入
uses 
   ..............
   stdctrl（好像是这个吧）

Answer 3

我的  Ｆｏｒｍ２ 是动态创建的啊，怎么会有 Form2 的单元呢？程序的代码如下：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
Form2:TForm;
begin
  Form2:=TForm.Create(Application);
  Form2.ShowModal;
  Form2.Free;
end;procedure TForm2.FormCreate(Sender: TObject);
var
  Label1: TLabel;
begin
  Label1 := TLabel.Create( Self );
  Label1.Parent := Self;
  Label1.Caption := '第二个窗口';
end;end.

Answer 4

哇塞，你好夸张噢。我稍许给你改写一下吧。unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure FormCreate(Sender: TObject);
  public
    { Public declarations }
    
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
Form2:TForm;
begin
  Form2:=TForm.Create(Application);
  Form2.OnCreate := FormCreate;
  Form2.ShowModal;
  Form2.Free;
end;procedure TForm1.FormCreate(Sender: TObject);
var
  Label1: TLabel;
begin
  Label1 := TLabel.Create(TForm(Sender));
  Label1.Parent := TForm(Sender);
  Label1.Caption := '第二个窗口';
end;end. 

Answer 5

兄弟应该写成
procedure TForm1.Button1Click(Sender: TObject);
var
Form2:TForm;
Label1: TLabel;
begin
  Form2:=TForm.Create(Application);
  Form2.ShowModal;
  Form2.Free;
 Label1 := TLabel.Create( Self );
  Label1.Parent := form2;
  Label1.Caption := '第二个窗口';
end;
这样才可以呀，因为LABEL1属于FORM2呀

Answer 6

你得声明个Form2单元哪
要不你就这样
procedure TForm1.Button1Click(Sender: TObject);
var
Form2:TForm;
Label1:TLabel;
begin
  Form2:=TForm.Create(Application);
  Label1 := TLabel.Create(Form2);
  Label1.Parent := Form2;
  Label1.Left:=20;
  Label1.Top:=20;
  Label1.Caption := '第二个窗口';
  Form2.ShowModal;
  Form2.Free;
end;
去掉 TForm2.FormCreate(Sender: TObject);

Answer 7

我都试过了，只有 xzgyb(回首往事,不堪回首) 兄弟的才行的通啊！title() 兄弟的方法得将Form2.showmodal; 和 Form2.Free; 两句放到最后才行！谢谢各位大侠了，给分啦 ：）