Set Konstanten einen Wert zuweisen

[DrUArn]

Hallo Uwe Raabe,
bei mir kommen folgende Fehler im Helper

Delphi-Quellcode:

  TRichEditHelper = class helper for TRichEdit
  private
    function GetDockOpts_UA: tDockOpts_UA;
    procedure SetDockOpts_UA(const Value: tDockOpts_UA);
  public
    property DockOpts_UA: tDockOpts_UA read GetDockOpts_UA write SetDockOpts_UA;
  end;



function TRichEditHelper.GetDockOpts_UA: tDockOpts_UA;
begin
 Result := tDockOpts_UA(Tag);
end;

procedure TRichEditHelper.SetDockOpts_UA(const Value: tDockOpts_UA);
begin
tag:=word(value)
end;

In getdockopts_UA kommt Fehler ungültige Typumwandlung (E2089),
bei Setdockopts muß Value mit Word umgewandelt werden (nicht Integer - dann auch Fehler ungültige Typumwandlung (E2089))


Aber so arbeitet auch GetDockOpts_UA richtig

Delphi-Quellcode:

function TRichEditHelper.GetDockOpts_UA: tDockOpts_UA;
 var  DOo:word;
begin
 DOo:=tag;
 Result := tDockOpts_UA(DOo);

//oder  Result := tDockOpts_UA(word(tag));
end;

Nun muß ich noch Rauskriegen, wie man einen solchen helper anwendet - als Klasse läßt er sich nicht registrieren.

Gruß Uwe