MouseEnter & MouseLeave

← →
IrBisoff © (2004-05-19 09:25) [0]

Уважаемые мастера ! Можно ли каким-нибудь образом обработать сабжевые события для TImage, при том что сам компонент свойств OnMouseEnter & OnMouseLeave не имеет ? Пытался через OnMouseMove, но при быстром перемещении мыши это бесполезно - не всегда мышь попадает в последний пиксел картинки. =\

← →
Думкин © (2004-05-19 09:35) [1]

CM_MOUSEENTER CM_MOUSELEAVE TImage23 = class(TImage) procedure MouseLeave(var Msg : TMessage); message CM_MOUSELEAVE; end;

← →
Silver Alex © (2004-05-19 09:39) [2]

можно перехватывать события таким образом.

private
old: TWndMethod;
procedure newWNDProc(var Msg: TMessage);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
old:=Image2.WindowProc;
Image2.WindowProc:=newWNDProc;
end;

procedure TForm1.newWNDProc(var Msg: TMessage);
begin
old(Msg);
if Msg.Msg =CM_MOUSELEAVE then
begin
Label1.Caption:="no mouse";
end
else if Msg.Msg =CM_MOUSEENTER then
begin
Label1.Caption:="mouse";
end ;
end;

← →
Silver Alex © (2004-05-19 09:40) [3]

поправлюсь, сообщения ,а не события конечно

← →
pasha_golub © (2004-05-19 09:50) [4]

Silver Alex © (19.05.04 09:39) [2]
Этот метод уже обсуждался и признан небезопасным.

От себя добавлю, что если без создания своего наследника, то ловить WM_MOUSELEAVE & WM_MOUSEMOVE. В таком случае следует обратить внимание на поимку сообщений WM_MOUSELEAVE, потому как для них предусмотрен механизм подписки. Подробнее см. MSDN.

Если с созданием своего наследника, то Думкин © (19.05.04 09:35) [1] однозначно.

← →
Silver Alex © (2004-05-19 10:09) [5]

> pasha_golub © (19.05.04 09:50) [4]

кем обсуждался и что здесь небезопасного?

← →
NAlexey © (2004-05-19 10:11) [6]

>pasha_golub © (19.05.04 09:50) [4]
Почему же, можно Думкин © (19.05.04 09:35) [1] но без наследника:
procedure TForm1.MouseEnter(var Msg: TMessage); begin if Msg.LParam = Integer(Image1) then Caption := "Enter"; end; procedure TForm1.MouseLeave(var Msg: TMessage); begin if Msg.LParam = Integer(Image1) then Caption := "Leave"; end;

← →
pasha_golub © (2004-05-19 10:19) [7]

Silver Alex © (19.05.04 10:09) [5]
Обсуждалась схожая тема. Написание компонента-обертки, подменяющего чью-то оконную процедуру.

В этом примере вроде все ок. Но, лично для себя, я этот путь приемлимым более не считаю.

С уважением.

← →
NAlexey © (2004-05-19 10:21) [8]

>pasha_golub © (19.05.04 10:19) [7]
>я этот путь приемлимым более не считаю.
А почему если не секрет? Может и я после объяснения не буду считать его приемлимым?

← →
pasha_golub © (2004-05-19 10:25) [9]

NAlexey © (19.05.04 10:21) [8]
Ы-ы-ы, ок. Поищу. Объяснения по этому поводу давал Юрий Зотов.

← →
NAlexey © (2004-05-19 10:28) [10]

> pasha_golub © (19.05.04 10:19) [7]

я не думаю что здесь может быть что-то небезопасное, потому как везде у всех наследников TControl есть виртуальный метод WndProc который на Create присваивается событию WindowProc.А теперь запусти поиск по слову "WndProc" и посмотри везде как этот метод переопределяется.Но там как правило вместо того что я написал old(Msg) пишут inherited, но реально происходит тоже самое.Так что ты хочешь сказать везде пишут неверно и не безопасно.Я думаю ты просто не до конца разобрался или высказал не свою мысль.

Есть еще один вариант, он не совсем корректный, но работать должен. Накладывается компонент, обрабатывающий эти события и делается невидимым и размером с исходный TImage.

>Александр Иванов © (19.05.04 10:56) [12]
Не в обиду... За несовсем корректный вариант здесь могут придать анафеме. Берегись:)

Silver Alex © (19.05.04 10:38) [11]
Я думаю, что есть разница в вызове кода из потомка и не из такового.

В данном примере, признаю, все нормально. Проблема которую я вспомнил, носила чуток другой оттенок. Как я сказал, имелся компонент, который подменял оконную процедуру у другого компонента на форме. Найти я эту ветку не могу, она ушла в архив. Но суть была, насколько я помню, в том, что при удалении компонента, у которого подменялась процедура, ссылка на процедуру (в вашем случае old) указывала в никуда. Вообщем простите за сбивчивое объяснение, сам я смутно помню процесс обсуждения, а запомнил только вывод. Но, повторюсь, в данном Вами примере все чисто. :-)

MouseEnter &amp; MouseLeave Найти похожие ветки

MouseEnter & MouseLeave Найти похожие ветки