Crear InspectorBar TMS por código

[[Bicho]]

Empezado por Deiv

Yo estaba empezando algo así, más no puedo avanzar

¿Y que problema tienes?, ¿por qué no puedes avanzar más?

Lo que has puesto parece estar bien.

Yo lo que haría sería más o menos lo que sigue:
- Al seleccionar un Item del combobox poner algo así:

Código Delphi [-]
procedure TForm1.ComboBox1Select(Sender: TObject);
var form2 : Tform;
     MiBar : TInspectorBar;
begin
   try
      //creas el form, como seguro que sabes hacer y luego la barra
     MiBar := TInspectorBar.Create(Self);
     MiBar.Parent := Form2; //El parent debe ser el form que has creado
     MiBar.Panels.Add;
     MiBar.Panels[0].Caption:='Automóviles';
     //... continuas creando los paneles y al final muestras el form

     Form2.ShowModal;
   finally //al ser el modal el form, puedes controlar el cierre y eliminar todos los objetos
      MiBar.Free;
      Form2.Free;
   end;
end;

Se puede mejorar seguro, pero es una idea básica, que espero te sirva.

Saludos

[Deiv]

Sigo intentando y mejorando mi código, pero ahora me encuentro con el problema de la creación de los Items:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
   i: integer;
   MiBar:TInspectorBar;
const
   MisPanels : array [0..2] of String = ('Automóviles','Repuestos','Otros');
   MisItems : array [0..2] of String = ('Toyota','Nissan','Suzuki');

begin
   MiBar := TInspectorBar.Create(Self);
   MiBar.Parent := Self;
   MiBar.Align:= alRight;
   for i:= 0 to 2 do
     begin
       MiBar.Panels.Add;
       MiBar.Panels[i].Caption :=MisPanels[i]
     end;

   for i:= 0 to 2 do
     begin
       MiBar.Panels[0].CreateItems;// Aquí me lanza error!!
       MiBar.Panels[0].Items[i].Caption:=MisItems[i];
     end;
end;

end.