precisando.
procedure TForm1.FormShow(Sender: TObject);
var i: integer;
begin
for i:=0 to Pred(form1.ComponentCount) do begin
if form1.Components[i] is TDBEdit then begin
if (form1.Components[i] as TDBEdit).Field.Required then
(form1.Components[i] as TDBEdit).Color := clRed
else
(form1.Components[i] as TDBEdit).Color := clWhite;
end;
end;
end;
O algoritmo faz um loop nos componente do form, verifica se é TDBEDIT,
verifica se o campo é Required e se for, pinta de vermelho.
Espero que tenha ajudado,
Abraço,
Leandro
----- Original Message -----
From: "Fellipe Henrique" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Friday, May 12, 2006 7:17 AM
Subject: Re: RES: [delphi-br] Como pintar um Controle vinculado a um Field?
Olá elazar...
na realidade, se conseguimos pintar um DBMemo, ou todos os campos... tipo,
se for Required, ele pinta... como no caso de um DBCheckBox, por exemplo...
nao tem como pintar o fundo, então pintaria a fonte..
seria mais ou menos isso, mas de ser algo genérico...
[]s
Fellipe H.
Em 11/05/06, Luis Lopes <[EMAIL PROTECTED]> escreveu:
>
> É isso mesmo. Pode ajudar?
>
>
>
> 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=12f9fssfb/M=396559.7942981.9356152.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1147389761/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
__________ Informação do NOD32 IMON 1.1534 (20060512) __________
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br
--
<<<<< 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!.