如题,MDI Form若不是主窗体,就老是错误提示:Cannot create form.No Mdi forms are currently active怎么办呐??求助了
解决方案 »
- 怎样用adotable 控件按照所给条件 显示相应的信息
- 数组问题 请高手进来看看
- 当QuickRep1.Preview后不关闭,只是最小化,连续3次以上,即QuickRep1.Preview,最小化,就会出现错误,怎么解决啊?在线等
- 今天我分导师了,我的导师很不错,心情愉快了。散分!!!
- 菜单的小问题
- 小弟想做一个像foxmail那样动态字幕窗体,请问动态字幕如何实现,应该不是利用一个label控件吧!
- 大家有用Delphi6的吗???
- 作CRM现在使用什么开发工具?采用什么结构?
- xzm2000---进入取分--windows消息的说明的帖子
- 300分!!!!!!CAD图的存储
- Quickreport怎么显示行号??
- listview的标题列的双击事件是哪一个?
loginForm为普通窗体
application.createform(mainForm,mainForm);application.createform(loginForm,TloginForm);
loginForm.showmodal;
Forms,
Controls,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin
Application.Initialize;
Form2 := TForm2.Create(Application);
if Form2.ShowModal <> mrOk then Exit;
Form2.Free;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.Form2是登录窗口,登录成功,启动主窗口,否则退出程序,当然,具体如何的LZ自己决定了。
Forms,
MainFrm in 'MainFrm.pas' {MainForm},
LinkBank in 'LinkBank.pas' {DataFrom: TDataModule},
LoginFrm in 'LoginFrm.pas' {LoginForm};{$R *.res}begin
Application.Initialize;
Application.CreateForm(TDataFrom, DataFrom);
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TLoginForm, LoginForm);
Application.ShowMainForm:=false;
LoginForm.Show;
Application.Run;
end.