一个主窗体(MDI),在它create的时候我
Form_main.Hide;
Form_login.Show;(form_login的style是normal)
又创建了个子窗体,Form_add,style是mdichild。
但是运行的时候出现错误,提示是没有MDIForm激活(Active)。
请问是怎么回事啊?
代码如下:
program Score;uses
Forms,
Unit_login in 'Unit_login.pas' {Form_login},
Unit_main in 'Unit_main.pas' {Form_main},
Unit_cadd in 'Unit_cadd.pas' {Form_cadd};{$R *.res}begin
Application.Initialize;
Application.CreateForm(TForm_login, Form_login);
Application.CreateForm(TForm_main, Form_main);
Application.CreateForm(TForm_cadd, Form_cadd);
Application.Run;
end.
Form_main.Hide;
Form_login.Show;(form_login的style是normal)
又创建了个子窗体,Form_add,style是mdichild。
但是运行的时候出现错误,提示是没有MDIForm激活(Active)。
请问是怎么回事啊?
代码如下:
program Score;uses
Forms,
Unit_login in 'Unit_login.pas' {Form_login},
Unit_main in 'Unit_main.pas' {Form_main},
Unit_cadd in 'Unit_cadd.pas' {Form_cadd};{$R *.res}begin
Application.Initialize;
Application.CreateForm(TForm_login, Form_login);
Application.CreateForm(TForm_main, Form_main);
Application.CreateForm(TForm_cadd, Form_cadd);
Application.Run;
end.
解决方案 »
- 有人了解RF卡吗?
- 一个基础的字符串操作的问题,望高手指教
- >>>>> 如何保存并恢复 ListView 拖动后的各列的相对位置--------似易实难 <<<<<
- 程序运行中如何能用鼠标操作选择多个控件(比如shape)并能在鼠标右键中添加命令(实现思想)
- 关于ADOTABLE的问题
- 产生错“多步操作产生错误,请检查每一步状态的值”的原因是什么?
- 教我怎么在DELPHI里使用DLL呀
- 怎样用文件的图标作为Listitem的图标?
- Var SA:string, SA的长度是否有限制?,是否可大于254?
- 怎么样确定treeview指定项的子项的图片
- 怎样把查询后的数据(access)(控件是adoquery,datasource)存成excel文件?急!
- 如何控制Label控件Caption中文字的间隔
Application.Initialize;
Application.CreateForm(TForm_login, Form_login);
if Form_Login.ShowModal=1 then
Application.CreateForm(TForm_main, Form_main);
Form_Login.Hide;
Form_Login.Free;
//Application.CreateForm(TForm_cadd, Form_cadd);
Application.Run;
看一下吧,有点类似
begin
Application.Initialize;
LoginForm:=TLoginForm.Create(Application);
if not LoginForm.ShowModal then
Application.Terminate
else
begin
Application.CreateForm(TMainForm,MainForm);
Application.Run
end;
end.