[Delphi]Mudar cor de componentes ao receber o foco (Edit, Memo, ComboBox...)

[CheaterMX 11]

Na seção Public declare:

 

ComponentePro: TComponent;

procedure ProCode(Sender: TObject);

 

Declare a procedure:

 

procedure TForm1.ProCode(Sender: TObject);

begin

if Assigned(ComponentePro) then

TEdit(ComponentePro).Color := clWindow;

if (ActiveControl is TEdit) or

(ActiveControl is TEdit) or

(ActiveControl is TCheckBox) or

(ActiveControl is TComboBox) or

(ActiveControl is TMemo) then

begin

TEdit(ActiveControl).Color := clYellow;

ComponentePro := ActiveControl;

end;

end;

 

Obs: clWindow é a cor sem o foco e clYellow é quando o componente receber o foco

 

No evento OnCreate do Form coloque:

 

Screen.OnActiveControlChange := CheaterMX;

 

No evento OnDestroy do Form coloque:

 

Screen.OnActiveControlChange := nil;