F
fossick
Unregistered / Unconfirmed
GUEST, unregistred user!
请各位看看以下程序为什么在退出的时候要等一段时间窗口才会关闭?
程序一共两个窗口,一个主窗口,一个密码输入窗口,在主窗口显示前调用密码输入窗口
,来输入用户名和密码。
主窗口程序
var
id:Boolean;
Procedure TForm1.FormShow(Sender:Tobject);
begin
Form2:=TForm2.Create(Application);
Form2.ShowModal;
If Not(id) then
Applicaiton.Terminate;
end;
密码输入程序
Procedure TForm2.FormClose(Sender:Tobject;Var Action:TCloseAction);
begin
Action:=CaFree;
Form2:=nil;
end;
Procedure TForm2.CancelButtonClick(Sender:Tobject);
begin
Form1.id:=False;
Close;
end;
程序一共两个窗口,一个主窗口,一个密码输入窗口,在主窗口显示前调用密码输入窗口
,来输入用户名和密码。
主窗口程序
var
id:Boolean;
Procedure TForm1.FormShow(Sender:Tobject);
begin
Form2:=TForm2.Create(Application);
Form2.ShowModal;
If Not(id) then
Applicaiton.Terminate;
end;
密码输入程序
Procedure TForm2.FormClose(Sender:Tobject;Var Action:TCloseAction);
begin
Action:=CaFree;
Form2:=nil;
end;
Procedure TForm2.CancelButtonClick(Sender:Tobject);
begin
Form1.id:=False;
Close;
end;