Fórum Dbedit em foco colorido #167415

02/07/2003

0

Delphi

Existe um form com vários campos dbedit. Gostaria de alterar as cores do campo em foco durante a entrada de dados. Assim nã seria necessário ficar procurando em que campo estou posisionado e procurar o que digitar.

Alguém sabe uma rotina genérica para qquer campo dbedit ? (independente de nome, formato, tipo tamanho,etc)

Grato.


Rikardo

Rikardo

Responder

Posts

02/07/2003

Fred

coloque no evento onEnter de ´um´ dbedit, o dbedi1 por exemplo

TDBEdit(sender).color := clBlue;

e no evento onexit do mesmo dbedit coloque

TDBEdit(sender).color := clWhite;

depois selecione todos os outros dbedits e coloque seu evento onenter como dbedit1enter e depois o evento onexit 8)


Responder

Gostei + 0

02/07/2003

Fernando

use a função abaixo que servira para todos os dbedit

Procedure ControlChange(Sender : TObject);

Na seção
private
ComponAnt : TDBEdit;

Procedure TForm1.controlChange(Sender : TObject);
begin
If Assigned(ComponAnt) then
begin
ComponAnt.color :=clwhite;
ComponAnt.Font.color :=clNavy;
end;
If ActiveControl is TDBEdit then
begin
TDBEdit(ActiveControl).Color :=clNavy; // a cor do foco
TDBEdit(ActiveControl).Font.Color :=clwhite;
ComponAnt := TDBEdit(ActiveControl);
end
else
ComponAnt :=nil
end;


Responder

Gostei + 0

02/07/2003

Fer

Assim tambem dá ó :

Edit focado inicialmente deverá ter color igual a Cor inicial e os utros a cor diferente.

procedure TForm1.Amarelo(Sender: TObject);
var i : Integer;
begin
   for i := 0 to ComponentCount -1 do
      if Components[i] is TEdit then
         If  TEdit(Components[i]).Focused Then
             TEdit(Components[i]).Color:=clWindow
         Else
            TEdit(Components[i]).Color:=clYellow;
end;


Falowwwww


Responder

Gostei + 0

02/07/2003

Fer

Assim tambem dá ó :

Edit focado inicialmente deverá ter color igual a Cor inicial e os utros a cor diferente.

procedure TForm1.Amarelo(Sender: TObject);
var i : Integer;
begin
   for i := 0 to ComponentCount -1 do
      if Components[i] is TEdit then
         If  TEdit(Components[i]).Focused Then
             TEdit(Components[i]).Color:=clWindow
         Else
            TEdit(Components[i]).Color:=clYellow;
end;


Falowwwww


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar