一个主窗体(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.
解决方案 »
- 转-每个苦逼的设计师背后都有一群指点江山的神
- 如何用IDhhtp控件提取网页上的文字?
- delphi中字符串格式化,然后保存到数据库问题
- Private Sub Worksheet_SelectionChange(ByVal Target As Range)' 怎么用,在线等!
- 在while not AdoQuery.eof do循环中,如何判断当前的记录是最后一条记录?????
- xml格式化问题
- 小数点问题
- ADO怎么来打开有密码的access数据库。
- 有关mdi子窗体第二次打开时候出现的问题
- 请救帮助
- 怎样把查询后的数据(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.