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

made in programmersforum 6

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

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

2nd
Фев

Как определить когда курсор мыши над формой?

Posted by Chas under Пост-обзор

Хочу как-то словить событие, когда курсор мыши уходит с формы.

procedure TForm1.FormDeactivate(Sender: TObject);
begin
  ReleaseCapture
end;
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
  If GetCapture=0 then SetCapture(Form1.Handle);
  if PtInRect(Rect(Form1.Left, Form1.Top, Form1.Left + Form1.Width, 
                                        Form1.Top + Form1.Height), ClientToScreen(Point(x, y))) 
    then Form1.Caption := ‘Мышка на форме’ 
    else Form1.Caption := ‘Мышка за пределами формы’
end;