Получения координат мыши относительно формы без таймера

Posted by obzor under Delphi, Архив

Необходимо получить координаты курсора мыши относительно формы не используя таймера.
А MouseMove не подходит так как у меня форма в основном на ней динамические объекты а цель получения координат мыши необходимо для отслежки в каких координатах нужно расположить динамические лейблы узнать этого нельзя так как имаджи на которых нужно разместить лэйблы размещаются динамически то есть программным путем тем более через массив
Вот скрин

Пока нумерация сделана через фотошоп но мне охото сделать программно темболее она будет тогда качественнее и даст пару возможностей.

cotseec

где необходимо работать с координатами мыши или Mouse.CursorPos или GetCursorPos function (будут получены экранные координаты), чтобы перевести в относительные ScreenToClient function или одноименный метод TWinControl

Alexandr17

procedure CMMouseLeave(var Mes: TMessage); message CM_MOUSELEAVE;
...
procedure TForm1.CMMouseLeave(var Mes: TMessage);
begin
  if (TControl(Mes.LParam) is TSpeedButton) and (TControl(Mes.LParam) = SpeedButton1) then
    SpeedButton1.Caption:='Lv'
  else inherited;
end;

то что нужно без таймера и в пределах формы

тема на форуме

Похожие статьи

• Указать координаты для создания компонента
• Открыть PopupMenu над выделенным словом в RichView
• Передача координат мыши через IDTCP
• Определение координат мыши на форме