TDBEdit(Sender).Color := clYellow ???

Question

Ol� Pessoal !olha s�, eu tenho um sistema desenvolvido, agora o cliente pediu pra mim mudar a cor do foco dos edit e DBedit quando receber o foco e ao sair do edit, eu uso eran�a de formul�rios, teria...

Xanatos · Answer

Bom...acho que se voce tiver um TCustomEdit no form pai... voce s� associaria esse evento nos filhos!!! assim nao serve?...

Jrjoliv2003 · Answer

Renata..Na parte da manh�o fiz a mesma pergunta e me respondeream isso:selecione todos os DBEdits do seu formulario e va no evento OnEnter e digite TDBEdit(Sender).Color := clYellow; depois no evento onExit digite TDBEdit(Sender).Color := clWindow;Eu n�o tive tempo de testar!!!Se vc testar ainda hoje e funcionar me retorne por favor!!!JR....

Emerson Nascimento · Answer

crie uma rotina para isso chamada, por exemplo, ControlChange. vamos ao exemplo.

type
TfrmAncestral = class(TForm)
{...}
private
{...}
public
ComponAnt: TComponent;
procedure ControlChange(Sender: TObject);
{...}
end;

agora, no onActivate do seu form, coloque:
procedure TfrmAncestral.FormActivate(Sender: TObject);
begin
Screen.OnActiveControlChange := ControlChange;
end;

e essa � a procedure em si:

procedure TfrmAncestral.ControlChange(Sender: TObject);
begin
if Assigned(ComponAnt) then
TDBEdit(ComponAnt).Color := clWindow; // cor sem foco

if (ActiveControl is TEdit) or
(ActiveControl is TDBEdit) or
(ActiveControl is TDBCheckBox) or
(ActiveControl is TDBComboBox) or
(ActiveControl is TComboBox) or
(ActiveControl is TDBLookupComboBox) or
(ActiveControl is TEdit) then
begin
TDBEdit(ActiveControl).Color := clYellow; // cor com foco
ComponAnt := ActiveControl;
end;
end;

atente-se ainda para, no evento OnDeactivate, desligar esse comportamento:

procedure TfrmAncestral.FormDeactivate(Sender: TObject);
begin
Screen.OnActiveControlChange := nil;
end;

veja se isso resolve o seu problema.

Renata Coimbra · Answer

Ol�, bom dia pra todos !usei essa procedure no meu fomrul�rio pai, funciona maravilhosamente bem, eu at� coloquei outros objetos na lista e funciona tudo,todos os formul�rios filhos est�o funcionando bem, mais t� dando um erro ao sair de qualquer um formul�rio filho, dar um erro de memoria maluco.  access violation adress etc etc...o que eu posso fazer pra sanar isso ?Obrigada pela aten��o !Renata Combra....

Xanatos · Answer

Muito legal essa dica! eu testei e funcionou perfeitamente!!! Valeu Emerson :!:...

Renata Coimbra · Answer

Emerson !Esquecir de falar, eu uso MDI, todos os formul�rios herdados funciona o foco mais na hora de sair dar o erro de memoria !o que pode ser ?Obrigada.Renata Combra....

Emerson Nascimento · Answer

vc n�o pode esquecer de �desligar� o ControlChange antes de fechar ou desativar o form....

Xanatos · Answer

Eu tambem uso MDI e nao deu problema!!!  8)...

Renata Coimbra · Answer

emerson.eneu s� mudei para ele desligar o ControleChange de onDeactivate para onClose e parou de dar erro.Obrigada pela aten��o !Renata Coimbra....

Emerson Nascimento · Answer

disponham....

Jrjoliv2003 · Answer

Muito Show!!!Vivendo e aprendendo!JR....

F�rum TDBEdit(Sender).Color := clYellow ??? #238097