Ошибка "Access Violation" в Delphi XE при доступе к свойствам в режиме дизайнера

Delphi , Компоненты и Классы , Свойства и События

Вопрос, поставленный пользователем, связан с возникновением ошибки "Access Violation" в среде разработки Delphi XE при попытке доступа к свойствам компонента, который является чтением и не предназначен для записи, и который в свою очередь зависит от другого компонента. Ошибка проявляется только в случаях, когда компонент используется в специализированной форме или в DataModule.

Описание проблемы

Разработчик столкнулся с проблемой в Delphi XE, связанной с доступом к чтению свойств компонента Comp1 через компонент Comp2 в специализированных формах. В Delphi 6 такая же конфигурация работала корректно, и разработчик не тестировал данный код на более новых версиях Delphi XE3, XE4 или XE5.

Код, представленный ниже, демонстрирует структуру компонентов Comp1 и Comp2, где Comp2 содержит ссылку на Comp1 и публикует свойство для доступа к Comp1 в дизайнере.

Unit UnTestComp;

Interface

Uses Classes, StdCtrls;

Type
  //Component 1
  TComp1 = Class(TComponent)
  Private
    FNome: String;
    FEdit: TEdit;
    Function GetText: String;
    Procedure SetText(Const Value: String);
  Public
    Constructor Create(AOwner: TComponent); Override;
    Destructor Destroy; Override;
  Published
    Property Nome: String Read FNome Write FNome;
    Property Texto: String Read GetText Write SetText;
  End;

  // Component 2
  TComp2 = Class(TComponent)
  Private
    FComp1: TComp1;
  Protected
  Public
    Constructor Create(AOwner: TComponent); Override;
    Destructor Destroy; Override;
  Published
    Property Comp1: TComp1 Read FComp1;
  End;

Procedure Register;

Implementation

Uses SysUtils, Dialogs;

Procedure Register;
Begin
  RegisterComponents('CompReadOnly Test', [TComp1, TComp2]);
End;

{...}

End.

При размещении Comp1 на Form1 и последующей специализации Form1 в Form2, попытка доступа к свойству Comp1 на Form2 приводит к ошибке "Access Violation".

Анализ проблемы

Комментарии пользователей указывают на отсутствие видимых ошибок в представленном коде. Однако, разработчик утверждает, что проблема не связана с явным освобождением компонентов, так как при создании с использованием Self как владельца, освобождение не требуется.

Подтвержденный ответ

Разработчик не смог найти причину проблемы и решил изменить тип свойства Comp1 на public, предоставляя доступ к нему через RTTI. Это решение было обусловлено улучшениями в RTTI в Delphi XE, которые сделали не обязательным использование published для доступа через RTTI, как это было в Delphi 6.

TComp2 = Class(TComponent)
Private
  FComp1: TComp1;
Protected
Public
  Constructor Create(AOwner: TComponent); Override;
  Destructor Destroy; Override;
  Property Comp1: TComp1 Read FComp1;
End;

Выводы

Проблема, с которой столкнулся разработчик, может быть связана с внутренними изменениями в Delphi XE, которые повлияли на работу с компонентами и свойствами. Смена типа свойства на public и использование RTTI для доступа к свойствам может быть решением данной проблемы. Тем не менее, для более точного определения причины ошибки необходимо дополнительное исследование кода, в котором происходит специализация форм и доступ к компонентам.

Примечание: Данная статья была написана с учетом предоставленного контекста и предназначена для специалистов, работающих с Delphi и Object Pascal. В статье приведен пример кода, который демонстрирует типичную структуру компонентов в Delphi и показывает, как может быть решена проблема с доступом к свойствам в режиме дизайнера.

Создано по материалам из источника по ссылке.

В среде разработки Delphi XE при доступе к свойствам компонентов в режиме дизайнера возникла ошибка 'Access Violation', связанная с особенностями специализации форм и взаимодействия компонентов.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Свойства и События ::