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