evento OnTabChange del componente Ribbon
 

Hola amigos del foro... estoy utilizando Ribbon para una aplicación q estoy desarrollando, vi unos manuales de Ribbon combinado con ActionManager, pero me pareció muy complejo y no me daban muchas opciones de diseño por lo que decidí eliminar el ActionManager y colocar los componentes directamente en Ribbon... todo ok hasta ahora, quiero q cuando seleccione una pestaña(Tab o RibbonPage) me cambie el caption de Ribbon por el agregando el caption del RibbonPage seleccionado... trate de usar el evento OnTabChange de Ribbon pero el resultado es que me devuelve el nombre del RibbonPage q estaba activado no el q seleccione:

Código Delphi [-]
procedure TForm1.Ribbon1TabChange(Sender: TObject; const NewIndex,
  OldIndex: Integer; var AllowChange: Boolean);
begin
  case Ribbon1.TabIndex of
    0:begin
        DBGrid1.Visible:=True;
        ContaArea.Visible:=False;
        AdminArea.Visible:=False;
      end;
    1:begin
        DBGrid1.Visible:=False;
        ContaArea.Visible:=True;
        AdminArea.Visible:=False;
      end;
    2:begin
        DBGrid1.Visible:=False;
        ContaArea.Visible:=False;
        AdminArea.Visible:=True;
      end;
  end;
end;

Observa que el evento recibe un parámetro llamado NewIndex. Éste indica cuál pestaña/página es la que se ha seleccionado, OldIndex señala en cuál está todavía y AllowChange (¿permitir cambio?) sirve para impedir que se realice el cambio de pestaña.

Entonces, sólo falta saber cómo decirle al componente que te dé el objeto página de la posición NewIndex, y de ese objeto extraer su caption. ;)

Mas claro imposible...:D