sábado, 6 de junho de 2009

Como trocar a cor do componente focado?

{Para mudar a cor do conponente que esta focado, e depois voltar a cor quando não está mais focado.
No evento OnEnter.
Colocar as seguintes linhas de comando; }

procedure TForm1.DBEdit1Enter(Sender: TObject);
begin
// verificar o camponente
if (Sender is TDBEdit) then
// mudar a cor do componente
TDBEdit(Sender).Color:=ClBlue;
end;

No Evento OnExit:
Colocar as seguintes linhas de comando;

procedure TForm1.DBEdit1Exit(Sender: TObject);
begin
// verificar o camponente
if (Sender is TDBEdit) then
// mudar a cor do componente
TDBEdit(Sender).Color:=clWindow;
end;

//Desta Forma você pode utilizar esta procedure para vários componentes.

Nenhum comentário:

Postar um comentário