阁龙1427 发表于 2012-5-13 21:41:51

球看代码

求看代码
procedure TfrmDBSetup.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
//判断是否有主程序实例,如果没有关闭整个程序
if Assigned(frmLogin) then
//如果有,只关闭当前窗体
    Close
else
    Application.Terminate;
end;
页: [1]
查看完整版本: 球看代码