关闭弹出窗体

webcrow

用ShowModal 出来的窗体 怎么关闭 用Close；好像无效

比如lForm :=TfrmCZLLD.Create(self.Context);
     try
lForm.ShowModal;
     finally
       lForm.Free;
    end;

在 子窗体的 按钮控件事件中 写Close;  好像没有效果。

webcrow

子窗体按钮控件事件写这个ModalResult := Business.Forms.Controls.mrOK; 是可以 但是还有其他方式吧？？？？

huangyue

应该有效果的，是不没编译，好像这个也可以