【结】功能中写代码关闭主窗体**

tanglei932

功能中写代码关闭主窗体，在功能中有一模式对话框，选择取消时退出功能，并且不再弹出主窗体。如何实现？？

atiger

你是怎么写关闭主窗体的？在哪个窗体上写的？

tanglei932

在功能层写的

atiger

代码呢？贴出来看看

tanglei932

在FuncCreate中写的代码，我是想在弹出对话框后，点取消后关闭功能，不再弹出主窗口，试了几种办法都不行，抱错，
var
  jiansuo : TForm;
begin
   jiansuo:=TCHOOSEMONTHMSG.Create(Context);
  if jiansuo.ShowModal=business.Forms.Controls.mrOk   then  
    lForm.ShowModal;
  else
    self.MainForm.Free;//关闭主窗体
  end;
  jiansuo.Free;
end;

tanglei932

var
  jiansuo : TForm;
begin
   jiansuo:=TCHOOSEMONTHMSG.Create(Context);
  if jiansuo.ShowModal=business.Forms.Controls.mrOk   then  
    jiansuo.ShowModal;
  else
    self.MainForm.Free;//关闭主窗体
  end;
  jiansuo.Free;
end;

上面那个不对

lixy

http://bbs.justep.com/forum.php? ... amp;highlight=dorun

tanglei932

谢谢，已解决