Кто нибудь знает, почему в DXE3 может не работает class helper for TNavButton? Ну, то есть при компиляции проекта, написанный код не обрабатывается компилятором,
при этом, class helper for TDBNavigator, отлично обрабатывается? (см. прикреплённую картинку)
Точно такая же конструкция прекрасно работает в D2009.
| Код |
type
TDBNavigatorHelper = class helper for TDBNavigator
private
function GetDataLink: TNavDataLink;
procedure SetDataLink(const Value: TNavDataLink);
protected
property DataLink: TNavDataLink read GetDataLink write SetDataLink;
public
end;
TNavButtonHelper = class helper for TNavButton
protected
function GetActionLinkClass: TControlActionLinkClass;
end;
implementation
{ TDBNavigatorHelper }
function TDBNavigatorHelper.GetDataLink: TNavDataLink;
begin
Result := Self.FDataLink;
end;
procedure TDBNavigatorHelper.SetDataLink(const Value: TNavDataLink);
begin
if Self.FDataLink <> nil then
begin
TNavDataLink(Self.FDataLink).Free;
Self.FDataLink := nil;
end;
Self.FDataLink := Value;
end;
{ TNavButtonHelper }
function TNavButtonHelper.GetActionLinkClass: TControlActionLinkClass;
begin
Result := TisControlActionLink
end;
|
|