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

Question

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

Answer 1

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 添加到其 require 子句，并向其中添加以下单元:

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 消息窗口: