Através da RTL (acho que é essa a sigla) você pode descobrir se determinado
componente tem a propriedade que vc especificar. Se tiver... basta usar.

Quanto a sua pergunta, eu não entendi.

Como eu disse no e-mail anterior, se você usar herança de formulários, deixe
este código do OnCreate dele. Caso contrário, deixe no OnCreate dos demais
form's.

Outra coisa. Se você cria todos os seus formulários de uma só vez, então,
execute no OnShow ou algo do tipo...


[]'s


Francisco Thiago de Almeida
Enter & Plug Informática
Divisão: Desenvolvimento e Banco de dados
Franca / SP
msn: [EMAIL PROTECTED]
http://enterplug.no-ip.com/sistema_ctrc/

----- Original Message -----
From: "Fellipe Henrique" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Wednesday, May 10, 2006 9:03 AM
Subject: Re: [delphi-br] Como pintar um Controle vinculado a um Field?


Francisco,

Como assim "perguntar" pela propriedade Field? Poderia me explicar melhor?

Ah.. usei o codigo, porem ele funciona, mas se eu abrir o formulario
novamente, ele nao pinta... soh pinta o primeiro form.

[]s
Fellipe H.


2006/5/10, Fellipe Henrique <[EMAIL PROTECTED]>:
>
>  Valeu pessoal
>
>
>
> Em 09/05/06, Francisco Thiago <[EMAIL PROTECTED]> escreveu:
>
> > for i:=0 to ComponentCount - 1 do
> >   if (Components[i].InheritsFrom(TDBEdit)) and
> >       TDBEdit(Components[i]).Field.Required then
> >     TDBEdit(Components[i]).Color = clRed;
> >
> >
> > Você pode adaptar para perguntar se o componente tem a propriedade Field
> > e
> > algum tipo de modificador de cor.
> > Ai ficaria show de bola.
> >
> > Se você usar herança de formulários, coloque isso no OnCreate do seu
> > formulário básico.
> >
> >
> > Se você aceitar a sugestão de descobrir as propriedades, poste o código
> > aqui
> > na lista pro pessoal poder utilizar. Okay?
> >
> >
> > []'s e espero que sirva.
> >
> >
> > Francisco Thiago de Almeida
> > Enter & Plug Informática
> > Divisão: Desenvolvimento e Banco de dados
> > Franca / SP
> > msn: [EMAIL PROTECTED]
> > http://enterplug.no-ip.com/sistema_ctrc/
> >
> >
> > ----- Original Message -----
> > From: "Fellipe Henrique" < [EMAIL PROTECTED]>
> > To: <delphi-br@yahoogrupos.com.br>
> > Sent: Tuesday, May 09, 2006 3:54 PM
> > Subject: Re: [delphi-br] Como pintar um Controle vinculado a um Field?
> >
> >
> > Olá Luiz, não era bem isso... :o)
> >
> > O que eu quero é pintar o DBEdit, mas sem ter que menciona-lo, pois
> > imagina
> > um cadastro com 50 campos? Queria algo meio genérico...
> >
> > Obrigado,
> > []s
> >
> >
> > Em 09/05/06, Luis Lopes <[EMAIL PROTECTED]> escreveu:
> > >
> > >   if TField(SeuDBEdit.DataField).Required then
> > >     SeuDBEdit.Color = clRed;
> > >
> > >
> > >
> > > Luis Alberto
> > > Belo Horizonte - MG
> > >
> > >
> > > ---------------------------------
> > > Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no
> > > celular e anti-spam realmente eficaz.
> > >
> > > [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.ard.yahoo.com/SIG=12fuinp6a/M=396559.7942981.9356151.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1147206158/A=3634211/R=2/id=noscript/SIG=15494h0pu/*http://lt.dell.com/lt/lt.aspx?CID=12387&LID=335659&DGC=BA&DGSeg=DHS&DURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26l%3dpt%26s%3ddhs
> > >
> > > ------------------------------
> > > *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]<[EMAIL PROTECTED]<http://[EMAIL PROTECTED]/?subject=Unsubscribe>
> > >
> >
> > >
> > >    - O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
> > >    Serviço do Yahoo! <http://br.yahoo.com/info/utos.html>.
> > >
> > >
> >
> >
> > --
> >
> > _________________________________
> > Fellipe Henrique
> > [EMAIL PROTECTED]
> > "Venham até a borda, ele disse.
> > Eles disseram: Nós temos medo.
> > Venham até a borda, ele insistiu.
> > Eles foram, Ele os empurrou...
> > E eles voaram."
> > (Guillaume Apollinaire)
> >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
> > --
> > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> >
> >
> >
> > Links do Yahoo! Grupos
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> > _______________________________________________________
> >
> > Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no
> > celular e anti-spam realmente eficaz.
> > http://br.info.mail.yahoo.com/
> >
> >
> >
> > --
> > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> >
> >
> >
> >
> >
> >   *Yahoo! Grupos, um serviço oferecido por:*   PUBLICIDADE
> >
> > <http://br.ard.yahoo.com/SIG=12f340noq/M=396559.7942981.9356151.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1147219129/A=3634211/R=2/id=noscript/SIG=15494h0pu/*http://lt.dell.com/lt/lt.aspx?CID=12387&LID=335659&DGC=BA&DGSeg=DHS&DURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26l%3dpt%26s%3ddhs>
> > ------------------------------
> > *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]
> >    <[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>.
> >
> >
>
>
> --
>
> _________________________________
> Fellipe Henrique
> [EMAIL PROTECTED]
> "Venham até a borda, ele disse.
> Eles disseram: Nós temos medo.
> Venham até a borda, ele insistiu.
> Eles foram, Ele os empurrou...
> E eles voaram."
> (Guillaume Apollinaire)
>
>


--
_________________________________
Fellipe Henrique
[EMAIL PROTECTED]
"Venham até a borda, ele disse.
Eles disseram: Nós temos medo.
Venham até a borda, ele insistiu.
Eles foram, Ele os empurrou...
E eles voaram."
(Guillaume Apollinaire)


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



--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>



Links do Yahoo! Grupos








           
_______________________________________________________
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz.
http://br.info.mail.yahoo.com/


--
<<<<< 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]



Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE


Links do Yahoo! Grupos

Responder a