Componente q mude a cor fundo dos controles ao receber foco

Question

� o seguinte pessoal, eu estou precisando de um componente que seja colocado no form principal do projeto e para este e todos os outros forms ele mude a cor de fundo dos controles (TEdit�s,TComboBox, ...

Njuniorba · Answer

use os componentes do activedelphi, procura no google o site :P...

Daniel_mc · Answer

Qual componente, pois dei uma olhada l� e n�o e n�o encontrei...

Renatacoimbra · Answer

ol� !vc pdoe usar esse c�digo no seu forme, se vc estiver usando heran�a de Forms vc pode colocar s� no form pai e blz.Declare uma Variavel na Public do Form[code:1:7d54dc1965]private    { Private declarations }  public    { Public declarations }    CampoFoco: TComponent;  end;  [/code:1:7d54dc1965]Despois crie um m�todo assim:[code:1:7d54dc1965]procedure TFrm_Main.ContoleFoco(Sender: TObject);begin    if Assigned(CampoFoco) then      if CampoFoco.Tag >= 0 then        TDBEdit(CampoFoco).Color := clWhite; // cor sem foco    if (ActiveControl is TEdit) or       (ActiveControl is TDBEdit) or       (ActiveControl is TMaskEdit) or       (ActiveControl is TDBCheckBox) or       (ActiveControl is TComboBox) or       (ActiveControl is TDBComboBox) or       (ActiveControl is TRichEdit) or       (ActiveControl is TDBRichEdit) then begin    if ActiveControl.Tag >= 0 then      TDBEdit(ActiveControl).Color := Cfg.GetCorEditComFoco; // cor com foco    CampoFoco := ActiveControl;    end;    end;[/code:1:7d54dc1965]No FormActivate vc coloca:[code:1:7d54dc1965]Screen.OnActiveControlChange := ContoleFoco;[/code:1:7d54dc1965]e no FormClose:[code:1:7d54dc1965]Screen.OnActiveControlChange := nil;[/code:1:7d54dc1965]PS: nos controle que vc n�o quer mudar a cor ao receber o foco vc muda a Tag para -1 pode exemplo.[/code]...

Daniel_mc · Answer

Obrigado!So estou quebrando a cabe�a para colocar em todos os meus forms MDI...

F�rum Componente q mude a cor fundo dos controles ao receber foco #301056