Var SetFrm :TSetes; begin SetFrm :=TSetes.Create(nil); SetFrm.ShowModal; if SetFrm.ModalResult =2 then ShowMessage('配置重载成功!'); end;