Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

16th
Дек

Событие для произвольной области внутри TImage

Posted by obzor under Delphi, Lazarus, Free Pascal

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

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

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.