这是否意味着我无法在delphi 2007和2009之间共享表单?
答案 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消息”窗口:
答案 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文件,其中包含表单及其组件的属性设置。某些属性值具有默认值,因此如果保留默认值,则不会存储它们。 只做了一个小测试:
它没有消息。但也许你没那么幸运。
使用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。