delphi 2007中Self.AutoPostBackControl := nil;问题解决方法

来源：互联网发布：干扰网络的软件编辑：程序博客网时间：2024/04/29 16:33

delphi 2007中Self.AutoPostBackControl := nil;问题解决方法

一、问题：

　　在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;即可解决编译，而又不对系统运行造成影响，程序如下：
　
１、保存页面时，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;

２、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的服务器上测试，程序运行正确。