Colorir campo no foco

[Shuster 0]

Olá,

 

Pessoal,

 

Novamente estou aki pedindo uma força, estou fazendo uma tela e queria q toda vez q o foco estivesse em um campo o mesmo mudasse a cor, facilitando a visualização do usuário, só q não queria colocar no 'change' de cada objeto, tentei fazer um loop mas não dá certo, veja ai abaixo.

 

var contador :Integer;
begin
  {Colorindo campos}
   for Contador := 0 to ComponentCount - 1 do
	 begin
	  if (Components[Contador].ClassType = TEdit)then
		begin
		  with TEdit( Components[ Contador ] ) do
		   begin
			  if TEdit(Components[Contador]).setfocus then 
				 begin
					 Color := clSkyBlue;
				 end
			 else
				 begin
					  Color := clWhite;
				 end;
		   end;
		end;
	 end;

Não funciona por q o delphi não consegue fazer a validação 'setfocus'. Tambem gostaria de saber se exite um evento do formulario para chamar essa procedure depois. Desde já agradeço a presteza.

[marcio.theis 3]

Veja este pequeno artigo de exemplo...