Bom dia.
para conseguir isto voce pode escrever metodos que 'escutam' as mensagens do
windows,
CM_MOUSEENTER, CM_MOUSELEAVE
Voce pode ver uma amostra destas mensagens em TControl
Pequeno exemplo, cole este fonte na unit de um form, que contenha um label pelo
menos...
TLabel = class(StdCtrls.TLabel)
private
public
procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
end;
procedure TLabel.CMMouseEnter(var Message: TMessage);
begin
inherited;
Self.Font.Color := clBlue;
end;
procedure TLabel.CMMouseLeave(var Message: TMessage);
begin
inherited;
Self.Font.Color := clBlack;
end;
Atenc;
Elazar Dornelles Ceza
________________________________
De: Jhosef Marks <jho...@gmail.com>
Para: lista-del...@yahoogrupos.com.br; delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 14 de Abril de 2009 9:48:54
Assunto: [delphi-br] Criação de Componentes + Eventos Dinamicos
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/soumaisdel phi
############ ######### ######### ######### ######### ######### ######### ###
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]
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
