Доброе время суток.
У меня есть программа, в которой я решил, по нажатию на кнопку, проверять находится ли курсор мышки над этой кнопкой. Следующим методом:
procedure TFMain.Button3Click(Sender: TObject);
var
P, P1, L_PosCursor: TPoint;
begin
P := ClientToScreen(Point(Button3.Left, Button3.Top));
P1 := ClientToScreen(Point(Button3.Left + Button3.Width, Button3.Top + Button3.Height));
GetCursorPos(L_PosCursor);
if PtInRect(Rect(P.X, P.Y, P1.X, P1.Y), (Point(L_PosCursor.X, L_PosCursor.Y))) then
showmessage('курсор находится над кнопкой'+#13#10+'Координаты кнопки: '+Inttostr(P.x)+', '+Inttostr(P.y)+', '+Inttostr(P1.x)+', '+Inttostr(P1.y)
+#13#10+Inttostr((L_PosCursor.X))+', '+Inttostr((L_PosCursor.Y)))
else showmessage('курсор НЕ находится над кнопкой'+#13#10+'Координаты кнопки: '+Inttostr(P.x)+', '+Inttostr(P.y)+', '+Inttostr(P1.x)+', '+Inttostr(P1.y)
+#13#10+Inttostr((L_PosCursor.X))+', '+Inttostr((L_PosCursor.y)));
end;
Но программа в ответ на это выдала результат (рис 3).
На что я взял и запихнул этот код в пустое приложение (рис 2), оказалось он корректно РАБОТАЕТ.
Тогда я взял и упростил мою программу до «нельза» (рис 1)
Выяснилось несоответствие, (рис.1 и рис2 сравнение «*.dfm»), которое не давало правильно работать.
Вопрос:
Почему, кнопка в контейнере «TPageControl», дает не правильные координаты курсора, в отличие от кнопки, которая непосредственно находилась на форме? Все высчитывается относительно экрана, а не формы, и там отличие только в высоте курсора, по горизонтале он входит в ширину кнопки.