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]>
>
> - 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 >>>>>
<*> 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: | |
|
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 Termos do Serviço do Yahoo!.