请问如何在Application.Run前终止程序(100分)

  • 主题发起人 主题发起人 s_cube
  • 开始时间 开始时间
S

s_cube

Unregistered / Unconfirmed
GUEST, unregistred user!
;我用制作启动窗体的方法做了一个登陆界面Form2
;
; Application.Initialize;

; form2:=tform2.Create(Application);
; form2.Show ;
; form2.Update ;

; while form2.timer.enabled do ; ; ; ; ; ; //--合法登陆前程序会停在这里
; ; application.processmessages; ; ; ; ; ;

; Application.CreateForm(TForm1, Form1);
; Application.CreateForm(TForm4, Form4);
; form2.hide;
; form2.Free;

; Application.Run;
;
; 如果不登陆直接关闭Form2 程序不会终止 ;
;
; 请问如何关闭Form2后终止程序??
 
if 条件成立 then
begin
开始程序
end
else
推出程序
 
Destroy可以么?
 
{$R *.RES}
var rst:Boolean;
begin

; Application.Initialize;
; Application.CreateForm(Tfrmmainmenu, frmmainmenu);
; frmmainmenu.visible:=false;
; Application.CreateForm(TfrmLOG, frmLOG);
; frmLog.Show;
; frmLOG.Image1.Cursor := -17;
; frmLog.update;
;
; Application.CreateForm(Tdatamd, datamd);

; Application.CreateForm(TfrmLOGIN, frmLOGIN);
; frmLOGIN.ShowModal; //设定是否可进入gb_login:=True;则可进入

; frmLog.free;
;
; if gb_login then
; begin
; ; Application.CreateForm(TfrmTips, frmTips);
; ; frmTips.hide;
; ; frmLogin.Free;
; ; Application.Run;
; end
; else
; begin
; ; frmLogin.Free;
; ; datamd.adoDBCN.Close ;
; ; datamd.Free;
; ; frmmainmenu.close;
; ; Application.Terminate;
; end;
end.
 
通常的做法是将登陆窗体做为模态显示。这样就有一个返回值,返回值正确时
if return-value is right then do
; begin
; ; 创建其它的窗体
; ; application.run
; end
 
taozhiyu ;你说的退出是?
ili ; Destroy不行有报错 ; ;
谢谢 ;mjy97 ;远帆 ;
 
to s_cube:
; 嘿,兄弟,你就这样感谢我呀?
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部