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后终止程序??
;
; 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后终止程序??