Создание интерактивного кастомного компонента `TImage` в Delphi с реакцией на наведение курсора

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

Создание интерактивного кастомного компонента TImage в Delphi с реакцией на наведение курсора

Вопрос, с которым столкнулся пользователь, заключается в создании кастомного компонента на основе FMX.Objects.TImage, который бы изменял изображение при наведении курсора мыши, не используя при этом стандартные обработчики событий OnMouseEnter и OnMouseLeave в приложении. Пользователь является начинающим и столкнулся с трудностями при попытке корректно настроить события для своего компонента.

Подход к решению

Прежде всего, важно отметить, что VCL и FMX - это разные библиотеки для работы с графическим интерфейсом в Delphi, и их использование вместе может привести к ошибкам. Кроме того, не следует использовать WinAPI-компоненты в кросс-платформенном коде FMX, если это не требуется.

Для реализации желаемого поведения достаточно переопределить виртуальные методы DoMouseEnter и DoMouseLeave в классе кастомного компонента. Это позволит компоненту реагировать на наведение курсора, не обращаясь к стандартным событиям OnMouseEnter и OnMouseLeave, которые должны быть вызваны автоматически фреймворком.

Пример кода

unit ImageCustoms;

interface

uses
  System.SysUtils, System.Classes, FMX.Types, FMX.Objects, FMX.ImgList;

type
  TImageCostoms = class(TImage)
  private
    { Private declarations }
  protected
    procedure DoMouseEnter; override;
    procedure DoMouseLeave; override;
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TImageCostoms]);
end;

procedure TImageCostoms.DoMouseEnter;
begin
  // Здесь код для изменения изображения при наведении
  MultiResBitmap.Items[1].Bitmap.LoadFromFile('focus1.png');
  inherited;
end;

procedure TImageCostoms.DoMouseLeave;
begin
  // Здесь код для возврата изображения в исходное состояние
  MultiResBitmap.Items[0].Bitmap.LoadFromFile('focus0.png');
  inherited;
end;

constructor TImageCostoms.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  // Инициализация MultiResBitmap, например:
  MultiResBitmap.Items[0].Bitmap.LoadFromFile('focus0.png');
end;

end.

Дополнительные замечания

При отладке компонентов не рекомендуется использовать ShowMessage. Вместо этого можно использовать OutputDebugString и просматривать вывод в окне Output в IDE. Также можно вносить изменения в интерфейс, например, изменять цвета, чтобы отслеживать поведение компонента.

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

В качестве альтернативы можно использовать компонент TSpeedButton, который позволяет связать несколько изображений из TImageList и изменять индекс изображения для отображения нужного. Это может упростить управление изображениями и создать плавный переход между состояниями фокусировки.

Заключение

Создание кастомного компонента TImage в Delphi с интерактивным изменением изображений при наведении курсора возможно с помощью переопределения виртуальных методов DoMouseEnter и DoMouseLeave. Это позволяет достичь желаемого поведения без необходимости использовать стандартные события обработки событий мыши в приложении.

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

Контекст вопроса связан с созданием интерактивного кастомного компонента `TImage` в Delphi, который изменяет свое изображение при наведении курсора мыши без использования стандартных событий, предназначенных для этой цели.

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

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

:: Главная :: TImage и TImageList ::