Исправление ошибок доступа при работе с визуальными компонентами в Delphi: кнопка с изображением и текстом

Delphi , Компоненты и Классы , Классы

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

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

Пользователь столкнулся с ошибкой доступа при попытке создать кнопку с изображением и меткой внутри. Код, который он предоставил, содержит определение нового класса Folder, который наследуется от TButton, и конструктор для создания объекта Folder. В конструкторе создаются объекты TImage и TLabel, которые добавляются в качестве дочерних элементов к Folder. Однако при попытке создать экземпляр этого класса возникает ошибка доступа.

Пример кода с ошибкой

type
  Folder = class(TButton)
    AName: TLabel;
    AImage: TImage;
    constructor Create(Nme: String; Path: String; Handle: TForm);
  end;

constructor Folder.Create(Nme: String; Path: String; Handle: TForm);
begin
  AImage := TImage.Create(Self);
  AName := TLabel.Create(Self);
  AImage.Parent := Self;
  AName.Parent := Self;
  AName.Caption := Nme;
  AImage.Picture.LoadFromFile(Path);
end;

procedure TForm3.Button1Click(Sender: TObject);
var
  Fld: Folder;
begin
  Fld := Folder.Create('It', 'D:\image.bmp', Form3);
  Fld.Parent := Form3;
  Fld.Width := 100;
  Fld.Height := 100;
end;

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

Проблема заключается в том, что конструктор Folder не вызывает конструктор базового класса TButton. Для корректной работы необходимо добавить вызов inherited Create(Handle); в начало конструктора Folder:

constructor Folder.Create(Nme: String; Path: String; Handle: TForm);
begin
  inherited Create(Handle); // <- Добавьте эту строку
  AImage := TImage.Create(Self);
  AName := TLabel.Create(Self);
  AImage.Parent := Self;
  AName.Parent := Self;
  AName.Caption := Nme;
  AImage.Picture.LoadFromFile(Path);
end;

Альтернативный ответ и общие рекомендации

Кроме исправления кода, полезно знать, как отлаживать программы в Delphi. Разместите точку останова на строке создания объекта Folder и используйте шаг по коду (F8) или шаг внутрь (F7) для отладки. Это позволит вам увидеть, что ошибка возникает при попытке установить родителя для AImage.

Также важно следовать стилистическим рекомендациям для кода в Delphi:

• Названия классов должны начинаться с T.
• Поля классов должны начинаться с F.
• Параметры конструктора и поля должны быть разделены пробелами.
• Конструкторы должны быть в публичном разделе, поля - в приватном или защищенном.

Для более глубокого изучения написания компонентов в Delphi, рекомендуется ознакомиться с официальным руководством по созданию компонентов и руководством по стилю кодирования в Delphi.

В заключение, при создании кастомных визуальных компонентов в Delphi важно корректно вызывать конструкторы базовых классов и следовать стилистическим рекомендациям. Это поможет избежать многих распространенных ошибок и сделает ваш код более понятным и удобным для поддержки.

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

Инструкция по исправлению ошибки доступа в коде, где необходимо правильно инициализировать кастомный визуальный компонент `Folder`, наследующий `TButton`, при создании кнопки с изображением и текстом в среде разработки Delphi.

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

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

:: Главная :: Классы ::