Utilizei as instruções que voce enviou mas está dando erro no SetOrdProp
preciso inicializá-lo, ou é mais um componente, ou uma use que não estou declarando ? []s e obrigado pela ajuda --- Em delphi-br@yahoogrupos.com.br, JJW Informática Ltda. - Roberto <[EMAIL PROTECTED]> escreveu > > Coloque um timer no seu form principal com interval 100 e enabled em FALSE: > > > TForm1 = class(TForm) > ... > private > FLastControl: TWinControl; > end; > > procedure TForm1.Form1Create(Sender: TObject); > begin > FLastControl := nil; > Timer1.Enabled := True; > end; > > procedure TForm1.Timer1Timer(Sender: TObject); > begin > try > if Screen.ActiveControl <> FLastControl then > begin > try > SetOrdProp(FLastControl, 'Color', clBtnFace); > except end; > > FLastControl := Screen.ActiveControl; > try > SetOrdProp(FLastControl, 'Color', clYellow); > except end; > end; > except > // ignorar erros > end; > end; > > > ----- 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
