Programación General > Delphi

 Inspectorbar Tms (outlookbar) Por Código

(1/1)

Deiv:
¿Alguien ha utilizado el InspectorBar de TMS?

Tengo un Form donde está un ComboBox que tiene a elección dos items: Autos y Compus, Necesito crear por código una Barra de InspectorBar, sus Panels e items todo por código, y darle eventos a los items. Al seleccionar un item del ComboBox debe crearse un Form nuevo con un InspectorBar, con sus Panels e items, como abajo indico:

--- Código: Text ---procedure TForm1.FormCreate(Sender: TObject);var   i: integer;   MiBar:TInspectorBar;const   MisPanels : array [0..2] of String = ('Automóviles','Computadoras','Otros');   MisItems : array [0..2] of String = ('HDD','CD ROM','RAMs'); 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. Hasta ahí avancé pero estoy fallando en la creación de Items y la forma de darle un evento a los mismos. ¿Como continuo?

Enko:
Como no conozco el componente que usas..... te lo ejemplifico con un  TButton.
La idea es que crees un elemento con el constructor Create con los parametros que te pida, y luego le asignas el evento, que tiene que ser como te lo escribo abajo.

--- Código: Text --- TForm1 = class TFormpublic   botonPrueba: Button;   procedure miEventeo(Sender: TObject);end; .... botonPrueba := Button.Create(nil); //AOwner puede ser nil, self, Form1....botonPrueba.Parrent := Form1; //si o si, form1, o form2, es donde se muestrabotonPrueba.Top, Left, Button, ...... lugarboton.OnClick := miEvento; //ABAJO DEFINO miEvento procedure miEvento(sender: TObject);beginif Sender is TButton thenbegin  TButon(Sender).Caption := 'boton presionado';   ShowMessage('presionaste un boton');end;end;  si quieres crear cantidad indefenida de butones o de lo que sea......

--- Código: Text --- with TButton.Create dobegin  Parrent := Form1;  Top := 50;  Left......  OnClick := miEvento;end;  algo de info al respecto:
http://mc-computing.com/Languages/Delphi/D...Components.html

Deiv:
Solo por curiosidad, cuando tienen que programar una aplicación que contenga un Barra del tipo Outlook, ¿Cual es el componente de su preferencia? ¿quizá uno diferente de los que mencioné en otro hilo?: TMSInspectorBar, TmxOutLook, GXOutlook, TBXNavBar??

Enko:
Nunca trabajé con componentes que no sean los que trae delphi en las pesatañas de Standart, Extra, Dialog, System. (salgo delphiX). :unsure:

-DriverOp-:
ToolBar2000, tiene el "look and feel" del Office :D

Navegación

[0] Índice de Mensajes