Componente TDI Ajustarr Cores

[alexandrebarbosa]

Boa Tarde!

Estou iniciando um novo projeto com o componente TDI, criado pelo Daniel Simões (alias Muito Bom). Porém gostaria de definir a cor do formulario , fontes  para (TEdit,TLabel,TDBEdit,etc), cor do focos dos formulários criados nas abas.
No meu projeto atual tenho uma unit que faz isto tranquilo é só eu colocar o comando  no FormCreate e tudo roda tranquilo : Screen.OnActiveControlChange:= @ControleDeCor.AjustaCores;

Porém no TDI não está funcionando. Imagino que não funciona porque o componente recriar os formulários para as abas.Já fiz de tudo e nada por isto se alguém puder me ajudar ou dar um dica ficaria muito grato?

[Daniel Simoes]

Poderia anexar um mini projeto, que demonstre o problema ?

[alexandrebarbosa]

Olá Daniel .

Conforme solicitou montei um pequeno projeto para você analisar.

grato

DemoTDI.zip

[Daniel Simoes]

Seu código não funcionará... porque Screen.ActiveForm sempre será o Form Principal (e não o Form dentro do TDI)

Tente a seguinte modificação, em anexo...

  ControleAtual := Screen.ActiveControl;
  FormAtual := FindFormParent(ControleAtual);

  if (not Assigned(ControleAtual)) or (not Assigned(FormAtual)) then
    Exit;


function TControledecor.FindFormParent(AControl: TControl): TCustomForm;
var
  AParent: TControl;
begin
  Result := Nil;
  if not Assigned(AControl) then
    Exit;

  AParent := AControl.Parent;
  while Assigned(AParent) and not Assigned(Result) do
  begin
    if (AParent is TCustomForm) then
      Result := TCustomForm(AParent)
    else
      AParent := AParent.Parent;
  end;
end;

 

ulcontroledecor.pas

[alexandrebarbosa]

Daniel , Show! Obrigado rodou perfeitamente como eu queria.

Muito obrigado.