Screen - mudando cor component atual

Top  Previous  Next

procedure TForm1.ColorControl(Sender: TObject);

var

  I : Integer;

  D : TControl;

begin

  for I:= 0 to ControlCount -1 do

    if Controls[I] is TCustomEdit then // Se quiser que todos recebam cor troque para TwinControl

    begin

      if (Controls[I] as TCustomEdit).Focused then

        TEdit(Controls[I]).Color := clRed;

      else

        TEdit(Controls[I]).Color := clWindow;

    end;

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

  Screen.OnActiveControlChange := ColorControl;

end;