Como fazer todos os OnShow dos forms executem uma função?

Delphi

28/03/2005

Olá, tenho uma função que muda a cor do fundo de cada Edit, dependendo do TAG, porem tenho que inserir essa funcao em todos os ONSHOW de todos os forms, queria saber se tem como ao dar o ONSHOWde todos os Forms, ele execute a função..

entenderam?

DEsde ja agradeco a todos


[]s


Titanius

Titanius

Curtidas 0

Respostas

Titanius

Titanius

28/03/2005

consegui achar pessoal,

obrigado!


GOSTEI 0
Cristiam

Cristiam

28/03/2005

Então mostre-nos como fazer isso.... Pode ajudar outras pessoas... :P


GOSTEI 0
Titanius

Titanius

28/03/2005

oops.. foi mal..

segue:

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;


eh isso aih pessoal! :D

[]s


GOSTEI 0
POSTAR