怎样创建窗口?

var a:Tform;
a:=TForm.create;
....
a.show;

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

var a:Tform;
a:=TForm.create(self);
....
a.show;
首先，应该在工程的option中禁止自动创建这些个窗口，然后在需要的
时候就可以用
var
a:Tform;
a:=Tform.Create(nil or self);
a.show;
我觉得使用nil或者self都可以，看你打算什么时候销毁这个窗口了
var
  frmddd:tform;
begin
  try
    frmddd:=tform.create(application);
    //do something
  finally
    frmddd.free;
  end;
就是这样的,给分吧!
我是这个意思, 我有一个主窗体form1, 还有另一个窗体form2. 在form2中放有
若干控件. 在按下form1的一个按钮后,显示form2.
响应click事件  用form2.show;
当然  要先在form1的代码中要引入form2的单元文件
No.1 动态载入资源(e.g. 图片)
No.2 用程序压缩工具(e.g. aspack)
No.3 建议完成功能并得到正确的结果之后考虑其他
//非模态显示
procedure TForm1.Button1Click(Sender: TObject);
begin
{}if not Assigned(Form2) then
{}{}Form2 := TForm2.Create(Application);
{}Form2.Show;
end;//模态显示
procedure TForm1.Button1Click(Sender: TObject);
begin
{}with TForm2.Create(nil) do try
{}{}Caption := '资源已经在程序中，不管你动不动态创建';
{}{}ShowModal;
{}finally
{}{}Free;
{}end;
end;
老大，我不太明白你的意思？你的窗口很复杂吗？我的程序已经算较复杂了
有4-5个窗口也不到1M,你怎么会有几M?
我看要这样：
1：先写窗口的unit文件；
2：在工程中，禁止自动创建
3：在主窗口中uses你要创建的其它窗口的unit
4：根据你窗口的类型？比方说，可能只有一个如：login这类的
  又可能说有几个，比如：document,来设定变量，如果只有一个
  的，放到 unit里面就可以了，如果有多个就要在程序中创建了
5：在要用到的地方用
    变量名:=T窗口类型.create(这里放self或者nil);
   变量名.show;   或者变量名.showmodal;
Application.CreatForm(类名，窗体名）
redlegend is right!
it must be cross!
你可以在uses中将没有的库单元删去