【搞定】关于弹出窗口的问题**

ccyy0112

在一个按钮的单击事件中，弹出一个新的窗体 但是代码编译不过去
procedure TYGZJHSQ.Button1Click(Sender: TObject);
var
  strr:string;
  lForm:XZBM.XZBM1;－－－－－－－－//编译时报错 路径应该没问题
begin
lForm := XZBM.XZBM1.create(self.Context);
  try
    lForm.ShowModal;
  finally
    lForm.Free;
  end;
end;

ccyy0112

unit YGZJHSQ;

interface

uses
  Business.System, Business.Model, Business.Forms,Business.model.org,
  Business.Data;

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

implementation


procedure TYGZJHSQ.Button1Click(Sender: TObject);
var
  strr:string;
  lForm:XZBM.XZBM1;
begin
lForm := XZBM.XZBM1.create(self.Context);
  try
    lForm.ShowModal;
  finally
    lForm.Free;
  end;
end;

end.
这是本页的所有代码

atiger

呵呵，原始的错误信息呢？

应该是需要在项目管理中，引用一下 XZBM 这个对象，
如果不知道如何使用，请以“项目管理”在bbs上搜索

ccyy0112

我根据您说的关键字找了 但是没找到类似的啊

ccyy0112

功能是在一个文件夹下的

ccyy0112

哦 明白了 谢谢 atiger

atiger

ok，结贴