Mudar Cor: Edit

Olá galera, nesta Quick Tips, irei mostrar, basicamente, como podemos modificar nossos componentes do Delphi, como por exemplo, modificar uma cor ao entrar em uma Edit, e voltar a uma cor padrão ao sair do mesmo.

Vamos inicialmente criar uma unit, e salvar a mesma como EditTunning.pas .

Na mesma vamos agora declarar a Classe TEdit, e posteriormente os métodos DoEnter, e DoExit

unit EditTunning;

interface

uses StdCtrls, Graphics;

type

TEdit = class(StdCtrls.TEdit)

private

FOldColor: TColor;

protected

procedure DoEnter; override;  { Estamos reescrevendo o método DoEnter, para adaptar de acordo com a nossa necessidade}

procedure DoExit; override;  { Estamos reescrevendo o método DoExit, para adaptar de acordo com a nossa necessidade}

end;

implementation

{ TEdit }

procedure TEdit.DoEnter;

begin

inherited;

   { Observe a variável/field FOldColor, onde ela guarda a cor anterior  }

FOldColor := Color;

   { Observe neste ponto dizemos que a cor ao entrar no Edit será clYellow }

Color := clYellow;

end;

procedure TEdit.DoExit;

begin

inherited;

   { Observe a cor agora irá receber o conteúdo da variável/field FOldColor }

Color := FOldColor;

end;

end.

Como usar então agora nosso EditTunning?

Simplesmente adicionar a Uses, no Formulário onde deseja ter este controle, e automaticamente ao entrar em um controle da Classe TEdit, o mesmo irá se comportar de acordo com a implementação do seu método DoEnter, assim como para o DoExit, porém precisamos dar uma “pernada” no compilador do Delphi, como ?.

Vejamos como é simples, ao incluir um Edit, e compilar o projeto, você verá que o mesmo se encarrega de dar uses em StdCtrls, unit esta que contém a classe TEdit. Até ai nenhum mistério. O uses é dado pelo Delphi. Vejamos agora ao adicionar a uses o nosso TEditTunning.

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, EditTunning, StdCtrls;

Da maneira que esta, o Delphi não fará diferença ao executar, teste para ver, e entender melhor o exemplo.

Agora da maneira correta.

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls , EditTunning;

Esta pernada explicasse que o Delphi interpreta as propriedades da última classe declarada, sendo assim ao incluirmos o EditTunning antes de StdCtrls, não vemos diferença, agora ao invertemos, a mágica acontece.

Obs: Adicione 2 edits para ver o exemplo funcionando

Dica de onde usar isso!

Já fiz projetos logo no início, onde colocava códigos absurdos para poder mudar a cor de um simples Edit, obviamente muitos passaram por isso, ou alguns estão ainda passando. Concluindo, serve para evitar aquela repetição de código para mudar a cor de Edit, ao receber o foco, bem prático e simples.

Fico por aqui ate à próxima Quick Tips.

Um abraço

Wesley Y

wyamazack@rwsolution.com.br