delphi窗体 问题 最近在做系统,遇到了个问题,就是在DELPHI主窗体中调用几个子窗体A B C,在程序开始运行的时候,为什么有的子窗体的假如A的OnCreate事件就被调用的,而BC的又不会,需要等到程序要显示它们的时候才会调用OnCreate? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Delphi菜单:Project-Forms,看A、B、C是否不在自动创建的列里?需要时再动态创建窗口frmA:=TfrmA.Create(Application);frmA.ShowModal;FreeAndNil(frmA);... 如楼上 就在 Project-Forms里边查看是不是自动创建 看看你的工程中你的窗体是不是在Auto-create forms中移到available forms 中去。 begin Application.Initialize; Application.MainFormOnTaskbar := True; Application.CreateForm(TForm1, Form1); Application.Run;end.frmA:=TfrmA.Create(Application);frmA.ShowModal;FreeAndNil(frmA);上面2种方式是不同的,估计A使用的是第一种方式BC使用的是第二种 #4楼 正解。每个Delphi项目都有一个主程序(*.dpr),其内容形如:program Project1;uses Forms, Unit1 in 'Unit1.pas' {Form1};{$R *.res}begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm2, Form2); ...................................... ...................................... Application.Run;end.其中,就有窗体创建的代码。窗体创建后,就可以调用show方法来显示;没有创建的窗体则不能直接show。如果在主程序将比如: Application.CreateForm(TForm2, Form2); 移去,则以后在显示Form2前,就必须自己写代码来创建窗体(form2:=TForm2.Create(nil) )。创建窗体时,就会触发 OnCreate事件。 请问谁有EXE+BPL+DLL的演示项目 数据库刷新的问题???请高手指教!!! 循环执行这个语句时出错,为什么 急!急!急!谁有ClientDataSet生成XML后,此XML的文档资料? 求snmp协议中delphi实现get ,getnext,trap的例子,万分感谢 急死我了,各位好汉帮帮我 怎么建一*.ini文件或文本文件 50分的小问题 请问哪里有用DELPHI编的VOD视频点播系统的源代码? 关于程序包装的问题!星期一用,急!!! 函数的定义,请大家帮忙 Delphi发送电子邮件的问题,连接成功,但是发送老师提示失败呢?请帮忙看下
需要时再动态创建窗口frmA:=TfrmA.Create(Application);
frmA.ShowModal;
FreeAndNil(frmA);
...
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.frmA:=TfrmA.Create(Application);
frmA.ShowModal;
FreeAndNil(frmA);
上面2种方式是不同的,估计A使用的是第一种方式
BC使用的是第二种
Forms,
Unit1 in 'Unit1.pas' {Form1};{$R *.res}begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
......................................
......................................
Application.Run;
end.其中,就有窗体创建的代码。窗体创建后,就可以调用show方法来显示;没有创建的窗体则不能直接show。如果在主程序将比如: Application.CreateForm(TForm2, Form2); 移去,则以后在显示Form2前,就必须自己写代码来创建窗体(form2:=TForm2.Create(nil) )。创建窗体时,就会触发 OnCreate事件。