Delphi dicas

Mudar cor do componente quando estiver focado

//no evento OnEnter do componente:



procedure TForm1.DBEdit1Enter(Sender: TObject);

begin

        if (Sender is TDBEdit) then

        TDBEdit(Sender).Color:=ClBlue;

end;



//no evento OnExit do componente:



procedure TForm1.DBEdit1Exit(Sender: TObject);

begin

        if (Sender is TDBEdit) then

        TDBEdit(Sender).Color:=clWindow;

end;

por : Wagner Frassetto Bortolotto