如何不让DELPHI自动创建窗体,而由程序控制呢?(50分)

  • 主题发起人 主题发起人 T2000
  • 开始时间 开始时间
T

T2000

Unregistered / Unconfirmed
GUEST, unregistred user!
先谢谢各位富翁了,该怎样实现呢?
 
你在project里设置一下,再在程序里动态生成FORM
 
project->auto create中的去掉!

var form2 :tform2;
form2:= tform2.create(application)
 
Form1 := TForm1.create(self);
Form1.ShowModal;
Form1.Free;
 
自动创建主窗体后,该如何动态创建其他需要的窗体呢?
水平不高,能给出代码吗?
 
两种方法都可以:
假设窗体对象为frmOptions,窗体类为TfrmOptions。
1)
Application.CreateForm(TfrmOptions, frmOptions);
frmOptions.Show;
2)
frmOptions := TfrmOptions.Create(frmMain); // 假如 frmMain 是主窗体
frmOptions.Show;
 
后退
顶部