起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 261|回复: 12

【结贴】关于动态创建窗体的变量问题

[复制链接]
发表于 2009-7-15 08:09:55 | 显示全部楼层 |阅读模式
我在信息下建立了一个组织机构树窗体,用于在功能中引用弹出选择人员信息,创建窗体的代码在按钮的触发事件中,代码如下:
var
   UrlVar: TBizClassURL;
   lForm : TForm;
begin
  UrlVar := TBizClassURL.Create;
  try
    begin
      UrlVar.BizURL.URL := 'Biz:\HDSCGL\manufactureinfo.Info\CHOPEOWIN.Form';
      lForm := BizSys.BizService.CreateBizForm(UrlVar, Self.Context);
      //lForm := Context.GetBizObject(UrlVar) as TForm;
      lForm.ShowModal;

      try
        DataSetcom_pap_mast_dat.DataSet.Edit;
        //dialogs.showmessage(lForm.Name);
       DataSetcom_pap_mast_dat.DataSet.FieldByName('Workshop_Director').AsString := lForm.lID;
      finally
       lForm.Free;
      end;

    end;
  finally
    UrlVar.Free;
  end;

窗体的建立没有问题,lID是窗体中的变量,在public下声明的,但是在功能中却取不出来,编译提示“Undeclared identifier lID”,请问我用什么方法能将其获得呢?
回复

使用道具 举报

发表于 2009-7-15 08:51:29 | 显示全部楼层
窗体的实例.lid
回复 支持 反对

使用道具 举报

发表于 2009-7-15 08:52:38 | 显示全部楼层
lForm := BizSys.BizService.CreateBizForm(UrlVar, Self.Context);
换成:
lform=T窗体的类名.create(context);
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-7-15 09:04:11 | 显示全部楼层
我代码里的lForm.lID就是“窗体的实例.lid”,不好使,取不出,现在我这段代码里把窗体变量定义为TFORM类,开始我是用“lform=T窗体的类名.create(context);”来做,窗体变量定义为“T窗体的类”,但是提示“Undeclared identifier TCHOPEOWIN”,TCHOPEOWIN为窗体的类,所以你的答案我都用过,行不通,请告诉别的方法
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-7-15 09:09:27 | 显示全部楼层
你说的方法从信息下的文档调用信息下的窗体就可以,我以前做过;现在我建的窗体是在信息下,要用功能调用,就出问题了
回复 支持 反对

使用道具 举报

发表于 2009-7-15 09:23:15 | 显示全部楼层
前面加上:业务信息单元ID.T窗体的类名
这样声明变量看看。
回复 支持 反对

使用道具 举报

发表于 2009-7-15 09:26:00 | 显示全部楼层
我3楼的方法有什么问题?
在信息下调用和在功能下调用的区别就是引用资源的不同。只要能访问到窗体的类就能用。
窗体在信息下和在资源集下没有什么差别,只是个存放位置。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-7-15 09:32:09 | 显示全部楼层
这是我按你们说的测试后的图片

2.jpg

77.42 KB, 下载次数: 95

回复 支持 反对

使用道具 举报

发表于 2009-7-15 09:33:53 | 显示全部楼层
你的信息是否分配到功能上?或者在项目管理里面应用了?
您在uses里面添加了这个信息的单元名了吗?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-7-15 09:34:34 | 显示全部楼层
第二张图片

1.jpg

82.52 KB, 下载次数: 94

回复 支持 反对

使用道具 举报

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

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-19 02:42 , Processed in 0.044809 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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