【搞定】申明窗体的问题**

buckking

在delphi 2005下申明窗体的写法
WinForm MyForm = (WinForm)this.Owner;
MyForm.Close();
想问一下，在x3下同样的要怎么写啊

lisb

procedure TMainForm.BitBtn1Click(Sender: TObject);
var
  lCT1: TCT1;
begin
  lCT1 := TCT1.Create(context);
  try
    lCT1.showmodal;
  finally
    lCT1.Free;
  end;
end;

buckking

制作登录窗体，通过它登录到另外一个窗体。可是现在由于登陆窗体是主窗体，登录到另外一个窗体之后，这个登录窗体也一直开着，想问一下，怎么样可以把它关掉，而保留登录进去的那个窗体。

lisb

可以结束登录窗体的功能
systemcore.TSYSTEMCORE.FuncManager.TerminateFunc(FuncBroker.Func,true);

buckking

systemcore 编译的时候识别不出来啊，是不是我少申明了什么东西

buckking

现在可以编译通过了，但是运行到这里会报这个错误啊

lisb

你的登录窗体是怎么做的，是想在登录窗体上打开另外的窗体还是功能，能否截个图上来看看

buckking

本来是在同一个功能下，设登录窗体为主窗体调用另外的窗体。后来发现关闭主窗体了话，另外的窗体也一起关掉了。
后来改为登录功能下面专门一个登录窗体，然后把另外的窗体放在另外一个功能下，这样就可以先打开登录功能，进行登录，然后调用另外一个功能的相应的窗体，可是现在又没法关掉前面的登录功能，那个登录窗体还是会在那边

buckking

procedure TDLCT.btnLoginClick(Sender: TObject);(点击登录按钮时)
var
  LegalUser : integer;
  lDetailForm :Tform;

begin
  LegalUser:=0;
  with dsbZBYBSJJ do
  begin
    DataSet.Open;
    DataSet.First;
    while not DataSet.Eof do
    begin
      if (edtUserName.Text=DataSet.FieldByName('ZBYMC').AsString) and
         (edtPassWord.Text=DataSet.FieldByName('ZBYMM').AsString) then
      begin
        jsDialogs.ShowMsg('合法用户','提示信息');
        LegalUser:=1;
        {调用另外的功能}
        systemcore.TSystemCore.FuncManager.RunFunc(Context, '', 'Biz:\STUDYSPACE\HY\YXGLRZ3.Func', '', nil, false);
        {关闭登录窗体，就是在这里报错}
        systemcore.TSystemCore.FuncManager.TerminateFunc(fnbDLGN.Func,true);
       break;
      end;
      DataSet.Next;
    end;
  end;


  if LegalUser=0 then
    jsDialogs.ShowWarning('用户名或者密码错误','错误信息');
end;

lisb

我这里用你上面的代码测试没有问题啊，你是不是其他地方有写终止登录功能的代码，好好检查一下你的代码