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

made in programmersforum 5

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

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

6th
Янв

Как определить выход курсора за пределы объекта Image

Posted by maloy under Delphi, Архив

Дамир

На форме расположен Image. Как определить, расположен курсор над Image или нет?

mihali4

Вам нужно обрабатывать события винды, возникающие при входе курсора в пределы компонента и при уходе за его пределы.
Для случая с Image я вам набросал примерчик:

Код:

  private
    { Private declarations }
    procedure Image1WindowProc(var Msg: TMessage);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  OldImage1WindowProc: TWndMethod;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
OldImage1WindowProc:=Image1.WindowProc;
Image1.WindowProc:=Image1WindowProc;
Image1.Perform(CM_MOUSELEAVE,0,0);
end;

procedure TForm1.Image1WindowProc(var Msg: TMessage);
begin
case msg.Msg of
CM_MOUSELEAVE:
begin
Label1.Caption:='Не над картинкой';
end;
CM_MOUSEENTER:
begin
Label1.Caption:='Над картинкой';
end;
end;
OldImage1WindowProc(Msg);
end;

тема на форуме от 2009 года