A grosso modo vc pode fazer o seguinte:
crie uma propriedade para receber seu evento(E consequentemente as variáveis
ou funções que ela requerir) .
property OnMouseLeave: TNotifyEvent;
Na procedure onde provavelmente vc recebe a mensagem CM_MOUSELEAVE, vc testa
para ver se existe o evento. Caso exista, executa ele. Algo parecido com o
abaixo:
if Assigned(FOnMouseLeave) then
FOnMouseLeave(Self);
vc pode olhar na própria vcl, mais precisamente na unit Controls, tem bons
exemplos.
Abs
Daniel Augusto Bastos
2009/4/14 Jhosef Marks <jho...@gmail.com>
> Bom dia,
> Estou fazendo um componente (adicinando uma propriedade) descendente de
> TLabel, que tem a propriedade link onde o programador pode colocar um link
> (
> www.google.com) e se essa propriedade tiver um valor, então quando o
> usuário
> colocar o mouse em cima (onMouseEnter) desse label, quero que fique
> sublinhado e azul e quando tire o mouse de cima (onMouseLeave) quero que
> volte ao normal, até ai tudo beleza, sem nenhum problema.
>
> Agora o que eu quero é que quando usar esse componente q eu possa inserir
> um
> código no evendo onMouseLeave desse componente e quando o sistema estiver
> sendo executado seja executado o que eu coloquei como padrão no componente
> e
> o que o programador programou no componente em designer time.
>
> Como eu preparo meu componente para isso?
>
> JM
>
> --
> _________________________________________
> Jhosef Marks de Carvalho
> Delphi Developer
> http://groups.google.com/group/soumaisdelphi
>
> #####################################################################
> CAMPANHA POR UMA INTERNET SEGURA
> Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar
> mensagens use SEMPRE o "Cco" (cópia oculta).
> Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar
> um e-mail, delete todas as informações que apareçam no corpo do e-mail e
> que
> possam ser usadas por hackers.
> #####################################################################
> Sent from Joinville, SC, Brazil
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> ------------------------------------
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
