Ошибка EClassNotFound для TImage в Delphi: Исправление и лучшие практики

Delphi , Графика и Игры , Изображения

Введение в проблему

При работе с компонентами в Delphi иногда возникают ошибки, связанные с неправильной инициализацией или использованием этих компонентов. Одной из таких ошибок является EClassNotFound для TImage, которая может возникнуть, если компонент TImage не зарегистрирован в DFM файле формы или если при создании экземпляра TImage используется некорректный контекст.

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

Пользователь столкнулся с ошибкой EClassNotFound при попытке создать массив объектов TImage в процедуре FormCreate. Ошибка возникает из-за неправильного контекста создания объектов TImage, где в качестве родительского компонента используется глобальная переменная Form1, вместо Self.

Подробное описание кода из контекста

unit Unit1;
...
implementation
procedure TForm1.FormCreate(Sender: TObject);
var
  xx, yy: Integer;
begin
  for xx := 0 to 29 do
    for yy := 0 to 39 do
    begin
      Images[xx, yy] := TImage.Create(Form1);
      Images[xx, yy].Canvas.Rectangle(0, 0, 17, 17);
      Images[xx, yy].Left := xx * 16;
      Images[xx, yy].Top := yy * 16;
    end;
end;
...
end.

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

Проблема заключается в том, что при создании экземпляров TImage используется глобальная переменная Form1 вместо Self, что приводит к тому, что созданные TImage не связаны с формой, на которой они должны отображаться. Вместо этого следует использовать Self, чтобы указать, что созданные объекты являются детьми текущего объекта TForm1.

Альтернативный ответ

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

Лучшие практики

• Используйте Self при создании компонентов, чтобы они были связаны с текущим объектом формы.
• Не используйте глобальные переменные для создания компонентов, так как это может привести к непредсказуемому поведению.
• Проверьте DFM файл на наличие правильной регистрации компонентов.

Исправленный код

procedure TForm1.FormCreate(Sender: TObject);
var
  xx, yy: Integer;
begin
  for xx := 0 to 29 do
    for yy := 0 to 39 do
    begin
      Images[xx, yy] := TImage.Create(Self);
      Images[xx, yy].Parent := Self;
      Images[xx, yy].Canvas.Rectangle(0, 0, 17, 17);
      Images[xx, yy].Left := xx * 16;
      Images[xx, yy].Top := yy * 16;
    end;
end;

Заключение

Используя вышеуказанные рекомендации, можно исправить ошибку EClassNotFound для TImage и избежать её в будущем, следуя лучшим практикам разработки на Delphi.

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

Проблема заключается в неправильной инициализации компонентов `TImage` в процедуре `FormCreate` в Delphi, когда для их создания используется глобальная переменная `Form1` вместо `Self`, что приводит к ошибке `EClassNotFound`.

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

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

:: Главная :: Изображения ::