球看代码

阁龙1427

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