Dem Typ TObject eine Property hinzufügen

[Jens Schumann]

Hallo,
gehe ich recht in der Annahme, dass man über einen ClassHelper nur Methoden hinzufügen kann und keine Eigenschaften?
Das folgende Code funktioniert mit D2005 Personal

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type

  TObjectHelper = class helper for TObject
  public
    function LanguageIndex: Integer;
  end;

  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TObjectHelper.LanguageIndex : Integer;
begin
  Result:=5;
end;

end.