Re: [delphi-br] Cor quando receber focus

Tue, 01 Aug 2006 05:08:32 -0700 

Olha Amigo Não me lembro onde Achei ele não..
Mas se vc quiser me mande um email em PVT que te envio ele OK....
  ----- Original Message ----- 
  From: André Luis de Oliveira 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, August 01, 2006 8:03 AM
  Subject: Re: [delphi-br] Cor quando receber focus


  Onde posso achar este componente?

    ----- Original Message ----- 
    From: Fabiano Frizzo 
    To: delphi-br@yahoogrupos.com.br 
    Sent: Monday, July 31, 2006 11:33 PM
    Subject: Re: [delphi-br] Cor quando receber focus


    Amigo Tenho um Componente Chamado SSCompXP ele Faz isso Automatico Para vc 
..

    Se vc quiser me mande e-mail em PVT que te envio Ok
      ----- Original Message ----- 
      From: Karin Schiochet 
      To: delphi-br@yahoogrupos.com.br 
      Sent: Monday, July 31, 2006 6:22 PM
      Subject: Re: [delphi-br] Cor quando receber focus


      Bem eu fiz da segunte forma em um programa que estou
      fazerdo.

      Criei uma Unit com nome Unitfunção e nela coloco os
      procedimentos e funções de uso mais comuns.
      Ex.

      // Declaração dos procedimentos
      procedure CorEntrada(Sender: TObject);
      procedure CorSaida(Sender: TObject);

      Implementation

      Uses DB;

      procedure CorEntrada(Serder: TObject);
      Begin
           if (Sender id TEdit) then
              (Sender as TEdit).Color:= clActiveCaption
              else if (Sender is TMaskEdit) then
                      (Sender as TMaskEdit).Color:=
      clActiveCaption
              else if (Sender is TMemo) then
                      (Sender as TMemo).Color:=
      clActiveCaption
              else if (Sender is TDBEdit) then
                      (Sender as TDBEdit).Color:=
      clActiveCaption
              else if (Sender is TDBMemo) then
                      (Sender as TDBMemo).Color:=
      clActiveCaption
                
      Fazendo a mesma coisa para a procedure CorSaida, e
      depois basta colocar nos eventos "OnEnter" e "OnExit"
      a chamada para essas procedures. Ex.
      CorEntrada(Sender);

      Espero ter ajudado, 
      Karin Klayton


      > 
      > Alguem tem alguma rotina que quando o TEdit ou
      > TComboBox receber o
      > foco mudar de cor. Por exemplo, a cor do TEdit é
      > branco quando o TEdit
      > receber o foco mudar para a cor amarelo. Precisa ser
      > uma rotina pois
      > fazer em cada TEdit vai dar trabalho..rs
      > 
      > 
      > 
      > 
      > 
      >  
      > 
      > 



                  
      _______________________________________________________ 
      Yahoo! Acesso Grátis - Internet rápida e grátis. Instale 
      o discador agora! 
      http://br.acesso.yahoo.com
       

    [As partes desta mensagem que não continham texto foram removidas]

     

  [As partes desta mensagem que não continham texto foram removidas]

   

[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

Responder a