学习:Delphi中动态创建窗体

发布时间:2014年4月13日 作者:未知 查看次数:2391

学习:Delphi中动态创建窗体


在第一个窗体中动态创建第二个窗体:

在窗口一上按钮一,点击按钮一动态创建第二个窗体,主要是在单元一中引用单元二文件。

Uses Unit2;   //引用单元文件
....

procedure TForm1.Button1Click(Sender: TObject);
begin
//Form2:=TForm2.Create(nil);
//Form2:=TForm2.Create(Self);
//Form2:=TForm2.Create(Application);   //创建窗体
  Application.CreateForm(TForm2,Form2);
  Form2.Show;
end;



版权所有!www.sieye.cn
E.Mail:sieye@sohu.com QQ:66697110