D
dylb
Unregistered / Unconfirmed
GUEST, unregistred user!
各位大虾:
我用application.terminate中止应用程序时Win98老是会出现非法操作提示框,请各位
指点一下,不胜感激!源代码如下:
program fuyangSystem;
uses
Forms,
controls,
MainUnit in 'MainUnit.pas' {MainForm},
fygldmodUnit in 'fygldmodUnit.pas' {fyglDMod: TDataModule},
loginUnit in 'loginUnit.pas' {loginForm},
gyUnit in 'gyUnit.pas' {gyForm},
xgmmUnit in 'xgmmUnit.pas' {xgmmForm};
{$R *.res}
var
loginform:tloginform;
begin
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TfyglDMod, fyglDMod);
loginform:=tloginform.Create(application);
if loginform.ShowModal=mrcancel then
Application.Terminate;
else
application.Run;
end.
我用application.terminate中止应用程序时Win98老是会出现非法操作提示框,请各位
指点一下,不胜感激!源代码如下:
program fuyangSystem;
uses
Forms,
controls,
MainUnit in 'MainUnit.pas' {MainForm},
fygldmodUnit in 'fygldmodUnit.pas' {fyglDMod: TDataModule},
loginUnit in 'loginUnit.pas' {loginForm},
gyUnit in 'gyUnit.pas' {gyForm},
xgmmUnit in 'xgmmUnit.pas' {xgmmForm};
{$R *.res}
var
loginform:tloginform;
begin
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TfyglDMod, fyglDMod);
loginform:=tloginform.Create(application);
if loginform.ShowModal=mrcancel then
Application.Terminate;
else
application.Run;
end.