计算机二级Delphi辅导:Self.AutoPostBackControl:=nil
来源:优易学  2011-6-7 13:04:23   【优易学:中国教育考试门户网】   资料下载   IT书店
  一、问题:
  在BDS2007中,如果系统安装了Dotnet FromeWork 3.5以上版本,则会导致BDS2007进行asp.net页面设计时,一旦保存页面,就在InitializeComponent方法中自动添加一条语句Self.AutoPostBackControl := nil;导致BDS不能编译成功,虽删除后可以编译,但麻烦是每次修改任何页面文件,都会重新生成此语句,十分影响开发效率,delphi官方网站上也有不少人在讨论,但没有找到解决方法。
  二、解决方法:
  笔者通过查阅Dotnet FromeWork 3.5资料,AutoPostBackControl是2.5以上System.Web.UI.Page的新增对象属性,在FromeWork2.0中并没有,因此,可以在页面类中增加一个成员变量:AutoPostBackControl:System.&Object;即可解决编译,而又不对系统运行造成影响,程序如下:
  1、保存页面时,InitializeComponent;方法中自动生成了语句Self.AutoPostBackControl := nil;
  procedure TMakeJsData.InitializeComponent;
  begin
  Include(Self.Button1.Click, Self.Button1_Click);
  Self.AutoPostBackControl := nil; //自动生成的代码,导致delphi2007不能正常编译
  Include(Self.Load, Self.Page_Load);
  end;
  2、bds页面程序中,在页面的public中增加如下对象变量: AutoPostBackControl:System.&Object;
  可以使使编译通过并且运行时不会有问题,因为bds2007本不就不用AutoPostBackControl属性。
  type
  TMakeJsData = class(System.Web.UI.Page)
  {$REGION 'Designer Managed Code'}
  strict private
  procedure InitializeComponent;
  procedure Button1_Click(sender: System.Object; e: System.EventArgs);
  {$ENDREGION}
  strict private
  procedure Page_Load(sender: System.Object; e: System.EventArgs);
  strict protected
  Button1: System.Web.UI.WebControls.Button;
  Label1: System.Web.UI.WebControls.Label;
  protected
  procedure OnInit(e: EventArgs); override;
  private
  { Private Declarations }
  public
  { Public Declarations }
  AutoPostBackControl:System.&Object; //增加此成员变量
  end;
  编译顺利通过,发布到装了FromeWork 2.0、FromeWork 3.5的服务器上测试,程序运行正确。

责任编辑:小草

文章搜索:
 相关文章
热点资讯
资讯快报
热门课程培训