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; MiBar.Panels[0].Items[i].Caption:=MisItems[i];
end;
end;
end.