Fórum Como fazer todos os OnShow dos forms executem uma função? #274280

public
    _Usuario: string;
    procedure ColorControl(Sender: TObject);

procedure TFrmPrincipal.ColorControl(Sender: TObject);
var
  i, p, t, pp: integer;
  Panel_Ativo: TPanel;
  Page_Ativo: TPageControl;
  TabSheet_Ativo: TTabSheet;
begin
  if (Screen.FormCount > 0) and (Screen.ActiveForm <> nil) then
  begin
    for i := 0 to Screen.ActiveForm.ComponentCount - 1 do
    begin
      if (Screen.ActiveForm.Components[i] is TDBEdit) then
      begin
        if (not (Screen.ActiveForm.Components[i] as TDBEdit).Enabled) then // ou use sem o not
        begin
          (Screen.ActiveForm.Components[i] as TDBEdit).Color := clBtnFace;
          (Screen.ActiveForm.Components[i] as TDBEdit).Font.Color := clBlack;
        end;
      end;
    end;
end;


procedure TFrmPrincipal.FormActivate(Sender: TObject);
begin
  Screen.OnActiveControlChange := ColorControl;
end;