Страницы: 1 2 вся ветка
Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2003.08.07;
Скачать: [xml.tar.bz2];




Вниз

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


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;

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




Страницы: 1 2 вся ветка
Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2003.08.07;
Скачать: [xml.tar.bz2];




Наверх








Память: 0.74 MB
Время: 0.032 c
14-20745          Vetall                2003-07-19 00:18  2003.08.07  
RXLIB под Delphi6


6-20651           TVV                   2003-05-17 16:14  2003.08.07  
Доступ к сетевым ресурсам


8-20639           mazepa                2003-04-15 16:28  2003.08.07  
дуга


1-20582           Aleksandr             2003-07-24 11:46  2003.08.07  
Как узнать, что PopupMenu в данный момент это... попнутая?


7-20830           Insider               2003-05-25 08:37  2003.08.07  
Свой пункт в меню в таскбаре.