起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 249|回复: 6

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

[复制链接]
发表于 2010-3-8 11:20:48 | 显示全部楼层 |阅读模式
学习了关于弹出窗体的帖子,
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"
什么原因?
回复

使用道具 举报

发表于 2010-3-8 11:30:58 | 显示全部楼层
代码没问题,问题是TZCT存在吗?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-8 12:12:34 | 显示全部楼层
存在
回复 支持 反对

使用道具 举报

发表于 2010-3-8 12:58:13 | 显示全部楼层
把你这个单元里面的所有代码都贴上来吧!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-8 13:01:09 | 显示全部楼层
代码如下:
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是存在的
回复 支持 反对

使用道具 举报

发表于 2010-3-8 13:20:53 | 显示全部楼层
PATENTAPPFORM换成TPATENTAPPFORM看看
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-8 13:29:31 | 显示全部楼层
好了,OK,结帖!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-10 23:23 , Processed in 0.039666 second(s), 16 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表