关于网友提出的“ 一个很好赚分的问题”问题疑问，本网通过在网上对“ 一个很好赚分的问题”有关的相关答案进行了整理，供用户进行参考，详细问题解答如下：
问题： 一个很好赚分的问题
描述: 在我的主程序里：
program prjMain;
uses
Forms,
untDM in 'untDM.pas' {DM: TDataModule},
untSplash in 'untSplash.pas' {frmSplash},
untMain in 'untMain.pas' {frmMain},
{$R *.res}
var
SplashForm:TfrmSplash;
b,e:longint;
begin
Application.Initialize;
Application.Title :='报价管理信息系统';
SplashForm:=TfrmSplash.Create(Application);
SplashForm.Show;
SplashForm.Update;
Application.CreateForm(TfrmMain, frmMain);
SplashForm.Hide;
SplashForm.Close;
Application.Run;
end.
在主界面里
unit untMain;
interface
uses
untBaseForm, ImgList, Controls, Menus, Classes, ActnList, ComCtrls,
ToolWin,forms,untLogin;
type
TfrmMain = class(TfrmBaseForm)
MainMenu1: TMainMenu;
...
procedure FormCreate(Sender: TObject);
procedure actAppExitExecute(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmMain: TfrmMain;
frmLogin:TfrmLogin;
implementation
uses
untPopSetup;
procedure TfrmMain.FormCreate(Sender: TObject);
var
ret:integer;
begin
inherited;
caption:=DEF_ApplicationName;
frmLogin:=TfrmLogin.Create(nil);
ret:=frmLogin.ShowModal;
frmLogin.close;
if ret=1 then //登录成功
...
else
...
end;
end.
我想做一个在打开主界面之前显示登录窗口的程序，象上面的写法，在关闭登录窗口后，老出现一个出错信息，不知道哪位有更好的做登录窗口的办法？
解决方案1: 把frmLogin.close去掉就可以了！
解决方案2: procedure TMainFrm.FormCreate(Sender: TObject);
begin
Self.Hide;
if not CommLoginFrm.LoginAppSystem('0100') then // HERE LOGIN....
Application.Terminate
else
self.ShowModal;
end;
以上介绍了“ 一个很好赚分的问题”的问题解答，希望对有需要的网友有所帮助。
本文网址链接：http://www.codes51.com/itwd/2533002.html
