Delphi 2007中的dfm中添加的DoubleBuffered属性在Delphi 2007中不存在

时间:2008-11-07 11:45:26

标签: delphi delphi-2009 delphi-2007

这是否意味着我无法在delphi 2007和2009之间共享表单?

5 个答案:

答案 0 :(得分:14)

DoubleBuffered已经在TWinControl中使用了一段时间。 Delphi 2009的不同之处在于它现已发布。 如果你只能忽略错误(而不是让属性工作),这是一个可能的解决方案:

unit Delphi2009Form;

interface

uses
  Windows, Classes, SysUtils, Controls, Forms;

type
{$IFDEF VER200}
  TDelphi2009Form = class(TForm);
{$ELSE}
  TDelphi2009Form = class(TForm)
  private
    procedure ReaderError(Reader: TReader; const Message: string; var Handled: Boolean);
  protected
    procedure ReadState(Reader: TReader); override;
  end;

  TReaderErrorProc = procedure(const Message: string);

var
  ReaderErrorProc: TReaderErrorProc = nil;
{$ENDIF}

implementation

{$IFNDEF VER200}
type
  THackReader = class(TReader);

procedure TDelphi2009Form.ReaderError(Reader: TReader; const Message: string; var Handled: Boolean);
begin
  with THackReader(Reader) do
    Handled := AnsiSameText(PropName, 'DoubleBuffered') or AnsiSameText(PropName, 'ParentDoubleBuffered');
  if Handled and Assigned(ReaderErrorProc) then
    ReaderErrorProc(Message);
end;

procedure TDelphi2009Form.ReadState(Reader: TReader);
begin
  Reader.OnError := ReaderError;
  inherited ReadState(Reader);
end;
{$ENDIF}

end.

然后将项目中表单的声明更改为继承自TDelphi2009Form,例如:

type
  TFormMain = class(TDelphi2009Form)
  ...

这将在运行时工作 - 属性错误将被忽略。为了使它在设计时工作,也可以创建一个仅设计包,将designide.dcp添加到其requires子句中,并将以下单元添加到其中:

unit Delphi2009FormReg;

interface

uses
  Delphi2009Form;

procedure Register;

implementation

uses
  DesignIntf, DesignEditors, ToolsAPI;

procedure ShowReaderError(const Message: string);
begin
  with BorlandIDEServices as IOTAMessageServices do
    AddTitleMessage(Message);
end;

procedure Register;
begin
  RegisterCustomModule(TDelphi2009Form, TCustomModule);
  ReaderErrorProc := ShowReaderError;
end;

initialization

finalization
  ReaderErrorProc := nil;

end.

在Delphi 2007 IDE中安装软件包,在IDE中打开表单时,将自动忽略DoubleBuffered和ParentDoubleBuffered属性的属性错误。 在Delphi 2007中保存表单时,属性的值将丢失,因此您应该在代码中初始化它们。

编辑:我添加了代码以将阅读器错误消息输出到“IDE消息”窗口:

IDE error messages

答案 1 :(得分:6)

是。除非从DFM中删除未在Delphi 2007中发布的属性,否则无法实现。

答案 2 :(得分:4)

Delphi项目一直非常容易移植到新版本。你必须更加小心,但是使用旧版编译器的当前代码也非常简单。我在Delphi 2005/2006/2007中维护了其他人仍然需要在Delphi 6和7中使用的代码。

如果从DFM中删除不兼容的属性,它们应该在旧版本中正常工作而不会弄乱Delphi 2009.最大的例子是Delphi 2006中引入的显式*属性。我有一个自制的“DFM scrubber”把它们剥掉了。请记住,这些属性存在是有原因的,因此您只应擦除要向后兼容的属性。

您可能还会考虑投资CodeHealer或Pascal Analyzer等静态代码分析工具。除了指出问题(特别是CodeHealer)并帮助您清理代码之外,您还可以选择要分析哪个版本的Delphi,从而更容易找到DFM属性之外的不兼容性。它们可以作为构建过程的一部分进行自动化。

请注意。共享源代码,但为每个版本保留单独的项目。这在Delphi 2007和Delphi 2009之间尤其重要。最新的.dproj文件使用相同的扩展名,但与Delphi 2007不兼容。您也可能遇到一些不兼容资源的问题。

答案 3 :(得分:2)

每个表单都有一个dfm文件,其中包含表单及其组件的属性设置。某些属性值具有默认值,因此如果保留默认值,则不会存储它们。 只做了一个小测试:

  • 在2009年创建表单
  • 添加几个标准控件
  • 保存
  • 2006年打开它(对不起2007年这台电脑)

它没有消息。但也许你没那么幸运。

使用Delphi,在版本之间共享数据通常有点麻烦。升级可能性很大,但降级很麻烦。所以我建议不要在不同版本之间共享表单文件。

据我所知,无法在dfm文件中添加条件定义。但话说回来,我们真的想要那个......我更喜欢一种忽略未知属性的机制。

答案 4 :(得分:2)

您可以安全地在表单的OnCreate方法的代码中添加属性,并围绕它们包装{$ IFDEF VER200} // NEW PROPERTIES {$ ENDIF}。您可以将DoubleBuffered放在ifdef之外,因为它存在于Delphi 2007中,但是属性检查员无法使用。

您只需要担心您设置的属性与默认属性不同。对于doublebuffered,如果设置为true,则只需要担心这一点。

在Delphi 2007中加载Delphi 2009表单时,您将收到一条警告,告知该属性将被销毁,只需记下这些属性,因为这些属性是您需要处理的。

我正在使用这样一种方法将我的代码从Delphi 2006迁移到Delphi 2009.我的大多数项目都包含几个共享单元,必须在Delphi 2006中为发布版本编译,Delphi 2009在“下一个”版本中编译。我也大量使用{$ IFDEF UNICODE}定义我需要确保字符串是宽字符串,或者根据例程确保ansistring。