Delphi RAD 10.4 - событие для области TImage

[hexor_boo]

Доброго времени!

Реально ли создать событие при входе мышки в НЕпрямоугольную область?

1) Для TImage
2) Для другого компонента

[hexor_boo]

Вижу "сырое" решение - постоянно мониторить координаты мышки сразу после входа в TImage и как только мышь "зайдёт" в отслеживаемую область - создавать "OnRegionMouseEnter". Так в общих чертах. А возможно ли в режиме реального времени так отслеживать вход мышки в обозначенные координаты? Или есть другое, более изящное решение?

[Arigato]

Можно использовать штатное событие, а там уже определить, попадают ли координаты мыши в вашу область и если да, то вызвать метод, который будет обрабатывать данное событие.

Пример (на Лазарусе, но на Делфи примерно тоже самое):

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Image1MouseLeave(Sender: TObject);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer
      );
    procedure OnEnter(Sender: TObject);
    procedure OnLeave(Sender: TObject);
  private
    Enter: Boolean;
  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

// Параметры окружности
const
  cx = 100;
  cy = 100;
  cr = 100;

procedure TForm1.FormShow(Sender: TObject);
begin
  // Рисуем окружность
  Image1.Canvas.Ellipse(cx - cr, cy - cr, cx + cr, cy + cr);
end;

// Обработка события попадания в заданную область
procedure TForm1.OnEnter(Sender: TObject);
begin
  Label1.Caption:='Внутри области';
end;

// Обработка события покидания заданной области
procedure TForm1.OnLeave(Sender: TObject);
begin
  Label1.Caption:='За пределами области';
end;

// Если вышли за пределы самого Image, то и внутреннюю область покинули
procedure TForm1.Image1MouseLeave(Sender: TObject);
begin
  if Enter then begin
    OnLeave(Sender);
    Enter := False;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Enter := False;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  // Проверяем попадание в заданную область (в данном случае окружность)
  if Sqrt(Sqr(x - cx) + Sqr(y - cy)) <= cr then begin
    if not Enter then begin
      OnEnter(Sender);
      Enter := True;
    end;
  end else begin
    if Enter then begin
      OnLeave(Sender);
      Enter := False;
    end;
  end;
end;

end.

Также можно определять область по цвету или любым другим требуемым способом.

[hexor_boo]

Благодарю за подробный пример!

[hexor_boo]

Возможно я неверно сформулировал задачу.

Нужно было: чтобы при заходе на непрозрачную область PNG-рисунка рисунок сменялся (как при событии захода мышки OnMouseEnter), а при выходе за пределы непрозрачной области менялся обратно (как при OnMouseLeave).

С помощью ChatGPT нашёл такое решение:

procedure TfrmMain.imgZabitMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 ZabitMouseMove(X, Y);
end;

 Procedure ZabitMouseMove(X : Integer; Y : Integer);
  Var
   Png        : TPngImage;
   AlphaValue : Byte;
   AlphaLine  : PByteArray;
  Begin

   If (frmMain.imgZabit.Picture.Graphic Is TPngImage) then
    Begin
    Png:=TPngImage(frmMain.imgZabit.Picture.Graphic);
     If (X>=0) And (Y>=0) And (X<Png.Width) And (Y<Png.Height) Then
      Begin
       AlphaLine:=Png.AlphaScanline[Y];

        If Assigned(AlphaLine) Then
         Begin
          AlphaValue:=AlphaLine[X];

           //0 - Transparent, 255 - Opaque
           If (AlphaValue>0) Then
            ZabitMouse(1) //установить картинку как при OnMouseEnter (вход в пределы рисунка)
           Else
            ZabitMouse(0); //установить картинку как при OnMouseLeave (выход за пределы рисунка)

         End;
      End;
    End;
  End;