Fórum mudar cores no foco #376089

vc tem q indicar o form pra ele contar o componentcount.

Ex:



se for o caso, use Self ao invés do nome do formulário.

private
{ Private declarations }
procedure MudancaDeFoco(Sender: TObject);
public
{ Public declarations }
end;

var
frmPaiCadastro: TfrmPaiCadastro;
cdsOperacao: TClientDataSet;

implementation



{$R *.dfm}
{Esta rotina será chamada através do evento OnExit (perda do foco)
de todos os componentes do tipo TDBEdit que existirem no form. }
procedure MudancaDeFoco(Sender: TObject);
var
I: integer;
Ed: TDBEdit;
begin
{ Percorre a matriz de componentes do form }
for I := 0 to frmPaiCadastro.ComponentCount - 1 do
{ Se o componente é do tipo TDBEdit... }
if frmPaiCadastro.Components[I] is TDBEdit then
begin
{ Faz um type-casting pata o tipo TDBEdit }
Ed := frmPaiCadastro.Components[I] as TDBEdit;

{ Se o DBEdit está com o foco... }
if Ed.Focused then
Ed.Color := clGrayText { Cinza }
else
Ed.Color := clWhite; { Branco }
end;
end;


procedure TfrmPaiCadastro.FormCreate(Sender: TObject);
var
I: integer;
begin
{ Percorre a lista de componentes do form (matriz de componentes)
e verifica cada componente para saber se é um TDBEdit. Se for,
associa o evento OnExit do componente com a procedure
´MudancaDeFoco´. }
for I := 0 to ComponentCount - 1 do
if Components[I] is TDBEdit then
(Components[I] as TDBEdit).OnExit := MudancaDeFoco;
end;

procedure TfrmPaiCadastro.FormActivate(Sender: TObject);
begin
MudancaDeFoco(nil);//Esta chamada é necessária para que o estado inicial seja controlado.
end;


coloquei como o alanporto disse colocar o nome do form antes:
frmPaiCadastro.ComponentCount
ele passa dai mas da o seguinte erro: [Fatal Error] uPai.pas(109): Program or unit ´uPai´ recursively uses itself
troquei e coloquei Self.ComponentCount e da o seguinte erro: [Error] uPai.pas(122): Undeclared identifier: ´Self´


e como o adilson falou tbm nao deu certo

tenta a opção do AdilsonD, pq a opção q eu passei não funcionará em alguns casos (dependendo onde vc vai usar, Self pode não estar atribuído ainda).

veja se [url=http://forum.devmedia.com.br/viewtopic.php?t=72688]este tópico[/url] te ajuda.

Valeu a atenção de todos


o link do tópico postado pelo emerson.en resolveu a situação...


Obrigado!!