Мышь на компоненте или в не его приделах.

← →
TankMan (2003-07-20 04:25) [16]

Да что вы все еще обсуждаете я ни пойму?!?!?
Вам Goblinus ясно понятно дал решение этой задачи... какие еще могут быть проблемы?
Если не понятно вот пример, который раньше давали мне...(почти такой)
type TMyLabel = class(TLabel)
private
FOnMouseEnter: TNotifyEvent;
FOnMouseLeave: TNotifyEvent;
procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
protected
procedure DoMouseEnter; dynamic;
procedure DoMouseLeave; dynamic;
published
property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
end;

А далее...

procedure TMysLabel.CMMouseEnter(var Msg: TMessage);
begin
inherited;
TLabel(self).font.color:=$C63745;
Screen.Cursor:=crHandPoint;
DoMouseEnter;
end;

procedure TMysLabel.CMMouseLeave(var Msg: TMessage);
begin
inherited;
TLabel(self).font.color:=$0;
Screen.Cursor:=crDefault;
DoMouseLeave;
end;

procedure TMyLabel.DoMouseEnter;
begin
if Assigned(FOnMouseEnter) then FOnMouseEnter(Self)
end;

procedure TMyLabel.DoMouseLeave;
begin
if Assigned(FOnMouseLeave) then FOnMouseLeave(Self)
end;

Вобщем это работает... вовсяком случае, мой компонент на этом работает....

Мышь на компоненте или в не его приделах. Найти похожие ветки