MDI中怎样先加载一个登陆界面(100分)

  • 主题发起人 主题发起人 hlxiang
  • 开始时间 开始时间
H

hlxiang

Unregistered / Unconfirmed
GUEST, unregistred user!
我要做个程序,主窗体为MDI,现在要做一个登录界面,必须在主窗体显示之前加载
登录完毕后再显示主窗体,如果在工程/选项中把登陆界面设为主窗体,
不把窗口定义为应用程序的主窗体,否则程序编译会出错。
请问有什么办法?
还有,我需要登陆界面给MDI窗体传递参数
 
在工程文件(主文件)begin
下面加入以下命令行 注:frmflash为登陆窗体名
frmflash:=tfrmflash.Create(application);
frmflash.Show;
frmflash.Update;
 
不用修改那些东东.
一般有两种方法:
1 在project1.dpr文件中application.run之前显示登陆窗口
2 在主form的onshow事件中显示登陆窗口
 
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}
begin
Application.Initialize;
FormLogin := TFormLogin.Create(Application);
if FormLogin.ShowModal = MROK then
begin
Application.CreateForm(TFormMDI, FormMDI);
Application.Run;
End
else
begin
Application.Terminate;
end;
end.
end;
 
去playicq.com下fms吧,mdi要做的東西都做差不多了,而且還是一個進銷存的框架,也許
對你會有用處的.
記得給點分!
 
后退
顶部