Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> D XE3, Не работает class helper for TNavButton, почему в XE3, не работает class helper?  
:(
    Опции темы
zve4202
Дата 19.2.2018, 12:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 17.9.2014

Репутация: нет
Всего: нет



Кто нибудь знает, почему в 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;



Присоединённый файл ( Кол-во скачиваний: 4 )
Присоединённый файл  2018_02_19_12_06_49_Скриншот_экрана.jpg 60,60 Kb
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0965 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.