Скачать: CL | DM;

CM_MOUSEENTER, CM_MOUSELEAVE и TSpeedButton   Найти похожие ветки 

← →
X9 ©   (2004-06-26 14:43) [0]

Здравствуйте, Мастера!
Скажите, как можно отловить сообщения CM_MOUSEENTER и CM_MOUSELEAVE для TSpeedButton, ведь данный компонент не имеет собственного Handle.

---

← →
GuAV ©   (2004-06-26 14:49) [1]

Не имеет. Ловить средствами Дельфи. У наследника проще всего через message methods а так есть WindowProc

---

← →
jack128 ©   (2004-06-26 14:51) [2]

>  сообщения CM_MOUSEENTER и CM_MOUSELEAVE для TSpeedButton,
> ведь данный компонент не имеет собственного Handle.
это не виндовые сообщения - они реализуются внутреннеми механизмами Delphi(cм TObject.Dispatch, TObject.DefaultHandler и тд) и поэтому хендл тут не нужен.
Вырантов решения два:
Либо писать наследника от TSpeedButton и перехватывать эти сообщения, либо отлавливать эти соощения у родителя кнопки (обычно форма) и смотреть

if Message.lParam = Integer(MyCoolSpeedButton) then
begin
 ...
end;

---

← →
jack128 ©   (2004-06-26 14:54) [3]

> а так есть WindowProc
угу, значит - три варианта решения

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c