【搞定】跳出窗体的问题**

buckking

为了跳出的主窗体不要占满整个窗体，而是一个对话框跳出来，就写了下面的代码：
  protected
    {protected declarations}
    procedure DoRun; override;
  public
    {public declarations}
  end;

implementation

procedure TTDYZBRZGLDL.DoRun;
var
  lForm:TDLCT;
begin
  lForm:=TDLCT.Create(Self.context);
  try
    lForm.ShowModal;
  finally
    lForm.Free;
    //self.Terminate;
  end;
end;
可是这样了话，在另外一个功能下
systemcore.TSystemCore.FuncManager.TerminateFunc(fnbDLGN.Func,true);写这个代码想关掉这个窗体，就会跳出下面这个错误（见图），在初始化运行的时候本来如果不加上面的dorun这行代码不会发生这个问题。

刺青

为了跳出的主窗体不要占满整个窗体......

这个你把窗体拉小一点，再把窗体属性中的WindowState设为wsNormal。这样你设窗体的大小是怎么样的就怎么样显示了。

buckking

不行啊，在协同管理平台看到的是一个占满全部的窗体

巧克力味

窗体属性WindowState没有设为wsNormal,当然看到的是一个占满全部的窗体了,我都行,在协同管理平台里.

buckking

我这个由于是主窗体才会自动占满，如果不是主窗体也没有这个问题了

alang

1楼的代码，这个功能运行时候显示了一个窗体，然后这个功能就结束了，所以就不能再次结束了

buckking

那怎么样才可以让这个窗体在调用另外一个功能之后，自动关闭呢？或者怎么让主窗体跳一个对话框出来，而不是占满整个窗体呢？

alang

procedure TTDYZBRZGLDL.DoRun;
var
  lForm:TDLCT;
begin
  lForm:=TDLCT.Create(Self.context);
  try
    if lForm.ShowModal= mrOk then  SystemCore.TSystemCore.FuncManager.RunFunc(...);
  finally
    lForm.Free;
    //self.Terminate;
  end;
end;

这样就可以保证这个窗体显示之后，调用了另外一个功能，并且自己自动就关闭了

buckking

现在这样是可以了，但是这个功能只能打开一次，关掉之后，想再打开，就必须重新登录平台才可以阿，这个是怎么回事啊

alang

你这个功能是干什么的？