Gerson
if (Sender as TPanel).Color = clRed then
(Sender as TPanel).Color := clBlue
else if (Sender as TPanel).Color = clBlue then
(Sender as TPanel).Color := clRed;
me desculpe mas onde estou nao tenho delphi...mas a ideia e esta...voce
pode usar o Sender...que e passado como parametro do procedimeto clique.
Elazar;
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Gerson Thomaz Santos
Enviada em: segunda-feira, 12 de dezembro de 2005 18:00
Para: Delphi-BR
Assunto: [delphi-br] Pegar o Nome do Componente
GeleiraCaros amigos,
Creio que ja deve ter sido postado na lista, mas como eu ja procurei
entra as mensagens antigas e não encontrei,
alguem sabe uma maneira bem simples de pegar o nome do componente que eu
cliquei:
O objetivo real é o seguinte:
Ao clicar em um Painel, eu verifico se ele esta em azul, se sim mudo ele
pra amarelo. Até ai tudo bem, eu poderia usar:
if Panel1.color = 'clNavy' then Panel1.color:='clYellow';
mas ai é q o bicho pega.
tenho q fazer essa verificação em um quadro de paineis que tem só 672
paineis hehehe agora ficou chato né ter q fazer em um por um...
então o que eu queria era algo tipo:
if PAINEL_QUE_EU_CLIQUEI.color = 'clNavy' then
PAINEL_QUE_EU_CLIQUEI.color:='clYellow';
Onde o PAINEL_QUE_EU_CLIQUEI fosse uma variavel mesmo que recebesse o
nome do bixo, ai eu faço a rotina apenas no OnClick do Painel1 e faço
todos os outros 671 paineis terem o mesmo painel1onclick...
UFA... espero que tenham entendido..
abração a todos...
Atenciosamente,
Gerson Thomaz Santos
Analista de Sistema
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
<http://br.rd.yahoo.com/SIG=12f3le36e/M=386470.7632849.8508174.2369893/D
=brclubs/S=2137111264:HM/Y=BR/EXP=1134428447/A=3135788/R=2/id=noscript/S
IG=12c39trgo/*http://ad.br.doubleclick.net/clk;22846485;12120066;a?http:
//www.hoteis.com>
_____
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! <http://br.yahoo.com/info/utos.html> .
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
