【结贴】关于弹出窗体的问题

lxh_78

学习了关于弹出窗体的帖子，
No.2  两个窗体在同一Assembly（如业务功能）中
var
  lForm: TZCT;
begin
  lForm := TZCT.Create(self.Context);
  try
    lForm.ShowModal;
  finally
    lForm.Free;
  end;
end;
自己实践了一下，编译报错如下：
[错误]Biz:\GFZLGLXT\ZLSL\NEWCASEFUNC1.FUNC.DIR\NEWCASEForm1.Form.pas(32, 28): Undeclared identifier "Create"
[错误]Biz:\GFZLGLXT\ZLSL\NEWCASEFUNC1.FUNC.DIR\NEWCASEForm1.Form.pas(34, 14): Undeclared identifier "ShowModal"
[错误]Biz:\GFZLGLXT\ZLSL\NEWCASEFUNC1.FUNC.DIR\NEWCASEForm1.Form.pas(36, 14): Undeclared identifier "Free"
什么原因？

aDragon

代码没问题，问题是TZCT存在吗？

lxh_78

存在

aDragon

把你这个单元里面的所有代码都贴上来吧！

lxh_78

代码如下：
unit NEWCASEForm1;

interface

uses
  Business.System, Business.Model, Business.Forms;

type
  TNEWCASEForm1 = class(TForm)
    FuncBroker: TFuncBroker;
    InfoBrokerPATENTAPPINFOTEMP: TInfoBroker;
    ControlBar: TControlBar;
    DataNavigator: TDataNavigator;
    DocViewBar: TDocViewBar;
    Panel: TPanel;
    DocViewPATENTAPPINFOTEMP_CASEOPERATELIST: TDocView;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation

procedure TNEWCASEForm1.Button1Click(Sender: TObject);
var
  lForm: PATENTAPPFORM;
begin
     lForm :=PATENTAPPFORM.Create(self.Context);
     try
       lForm.ShowModal;
     finally
       lForm.Free;
     end;
end;

end.
代码结束，窗体PATENTAPPFORM是存在的

shangxy

PATENTAPPFORM换成TPATENTAPPFORM看看

lxh_78

好了，OK，结帖！