OwnerDraw en TPageControl

[cesarsoftware]

Hola Salvica

Mira a ver si este codigo te puede ayudar

Código Delphi [-]
procedure TMC.PageControl1Change(Sender: TObject);
begin
  BotonBorraRuta.Enabled := False;
  TBotonBorraRuta.Enabled := False;
  MenuBorraRuta.Enabled := False;
  BotonAutoBorrar.Enabled := False;
  TBotonAutoBorrar.Enabled := False;
  MenuAutoBorrar.Enabled := False;
  case PageControl1.ActivePageIndex of
    0: begin
       TabRutasAjustar();
       AjustaRutaBotones();
       BotonBorraRuta.Enabled := True;
       TBotonBorraRuta.Enabled := True;
       MenuBorraRuta.Enabled := True;
    end;
    1: begin
       TabOperacionAjustar();
       AjustaOperacionBotones();
    end;
    2: begin
       TabInformeAjustar();
    end;
    3: begin
       TabAutoAjustar();
       BotonAutoBorrar.Enabled := True;
       TBotonAutoBorrar.Enabled := True;
       MenuAutoBorrar.Enabled := True;
    end;
    4: begin
       TabFtpAjustar();
    end;
    5: begin
    end;
  end;
end;
 
procedure TMC.PageControl1Changing(Sender: TObject; var AllowChange: Boolean);
begin
  case PageControl1.ActivePageIndex of
    0: begin
    end;
    1: begin
    end;
    2: begin
    end;
    3: begin
    end;
    4: begin
       MemorizaSitioFtp();
       GuardaSitiosFtp();
       LeeSitiosFtp();
    end;
    5: begin
    end;
  end;
end;
 
procedure TMC.PageControl1Enter(Sender: TObject);
begin
  PageControl1Change(Nil);
end;