Bom dia Pessoal!
Esse assunto já foi abordado aki. Eu até tentei ajudar o colega que fez o post,
mas não deu.
Agora sou eu quem estou precisando de ajuda no mesmo assunto.
Criei a procedure abaixo, para mudar a cor dos DBEdits dos forms, quando o
Field associado for Required, mas não está funcionando. O valor do Field sempre
é nil (veja comentário no código).
Quando vou, por exemplo, no OnEnter do DBEdit, os valores do Field esão lá,
blzinha.
O problema maior, é que estou precisando trabalhar com outras propriedades do
Field, em coisas mais importantes, para minha aplicação, do que simplesmente
mudar a cor.
Aguém poderia me dar uma força, por favor!
Fico muito Grato.
procedure TFormTelaPadrao.MudaCorCampos(Sender: TObject);
var
Contador: Integer;
begin
with TForm(Sender) do
begin
for Contador := ComponentCount -1 downto 0 do
begin
if (Components[Contador].InheritsFrom(TDBEdit)) then
if Assigned(TDBEdit(TForm(Sender).Components[Contador]).Field) then //
Não entra aki. O Field sempre tem valor nil
if TDBEdit(TForm(Sender).Components[Contador]).Field.Required then
TDBEdit(Components[Contador]).Color := $00E0E9FC;
end;
end;
end;
Luis Alberto
Belo Horizonte - MG
__________________________________________________
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[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
