Menus Vertical

[ecfisa]

Hola KingsOfDragons.

Realmente no sé si interpreté correctamente tu planteo...
Pero si la idea es desplegar un submenú cuyos items permitan realizar alguna accíon, una forma es usar un TTreeView y un TPopupMenu.

Ejemplo:

Código Delphi [-]
...
implementation  

(* Items del TreeView *)
procedure TForm1.FormShow(Sender: TObject);
begin
  // (Esta carga la podés hacer en diseño)
  TreeView1.Items.Add(nil,'ARCHIVO');
  TreeView1.Items.Add(nil,'CATALOGO');
  TreeView1.Items.Add(nil,'REPORTE')
  //...
end;

(* Evento OnClick del PopupMenu1 *)
procedure TForm1.PopupItemClick(Sender: TObject);
begin
  // Aqui las acciones que correspondan
  ShowMessage(TMenuItem(Sender).Caption);
end;

(* Evento OnClick del TreeView1 *)
procedure TForm1.TreeView1Click(Sender: TObject);
var
  MI: TMenuItem;
  HT: THitTests;
  CP: TPoint;
begin
  // TomarPosición del Mouse, convertir al cliente
  CP:= TreeView1.ScreenToClient(Mouse.CursorPos);
  // Ver donde se realizó el click
  HT:= TreeView1.GetHitTestInfoAt(CP.X, CP.Y);
  if htOnItem in HT then // Fue sobre un Item
  begin
    PopupMenu1.Items.Clear;  // Borrar Items
    // Asignar valores a MenuItems acorde a selección
    case TreeView1.Selected.Index of
      0:begin   // ARCHIVOS
          MI:= TMenuItem.Create(PopupMenu1);
          MI.Caption:= 'ARCHIVOS 1';
          MI.OnClick:= PopupItemClick;
          PopupMenu1.Items.Add(MI);
          MI:= TMenuItem.Create(PopupMenu1);
          MI.Caption:= 'ARCHIVOS 2';
          MI.OnClick:= PopupItemClick;
          PopupMenu1.Items.Add(MI);
          //...
        end;
      1:begin   // CATALOGO
          MI:= TMenuItem.Create(PopupMenu1);
          MI.Caption:= 'CATALOGO 1';
          MI.OnClick:= PopupItemClick;
          PopupMenu1.Items.Add(MI);
          MI:= TMenuItem.Create(PopupMenu1);
          MI.Caption:= 'CATALOGO 2';
          MI.OnClick:= PopupItemClick;
          PopupMenu1.Items.Add(MI);
          MI:= TMenuItem.Create(PopupMenu1);
          MI.Caption:= 'CATALOGO 3';
          MI.OnClick:= PopupItemClick;
          PopupMenu1.Items.Add(MI);
          //...
        end;
      2:begin   // REPORTE
          MI:= TMenuItem.Create(PopupMenu1);
          MI.Caption:= 'REPORTE 1';
          MI.OnClick:= PopupItemClick;
          PopupMenu1.Items.Add(MI);
          //...
        end;
    //3:...
    end;
    PopupMenu1.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y);// Mostrar Popup
  end;
end;

...

Quizá exista un componente que lo haga u otro modo más simple de hacerlo... pero es todo lo que se me ocurrió

Un saludo.

[KingOfDragons]

si es algo asi parecido pero es con buttons :P es para hacer un menu para la pantalla inicial de mi sistema lo quiero hacer con MDIForm y que al acer click en los sub mnus aparesca el form sin que desaparesca el menu principal, se le podria llamar un tree menu normalmente o mejor dicho simpre se ve en las paginas web pero quiero ver si lo puedo hacer en una aplicacion de windows

Gracias

[ecfisa]

Hola.

si es algo asi parecido pero es con buttons :P es para hacer un menu para la pantalla inicial de mi sistema lo quiero hacer con MDIForm y que al acer click en los sub mnus aparesca el form sin que desaparesca el menu principal, se le podria llamar un tree menu normalmente o mejor dicho simpre se ve en las paginas web pero quiero ver si lo puedo hacer en una aplicacion de windows

¡ Haberlo dicho antes hombre ! ...

La solución es bién simple, en el MDIForm poné un TPanel, borrá el Caption y dentro de él los TButtons que quieras.
Luego ajustá el TPanel con Align = alRight o alLeft (vertical) y en el evento OnClick de cada TButton mostras el MDIChild que corresponda.
Los forms MDIChild sólo ocuparán el área libre del MDIForm.

Saludos.

[KingOfDragons]

A si eso lo tengo bien claro y no creo la bronca biene cuando hay un objeto o un menu adicional del boton ya puse con popupmenus pero sigue tapandome las demas opciones y es lo que no quiero :P jajaja imaginate que estas viendo un menu de html o un menu web que al darle click estrae otra informacion sin borrar o ensimarse sobre los demas botones

[[ElKurgan]]

A lo mejor también te sirve este artículo del maestro marteens. Es otra posibilidad.

Saludos

[KingOfDragons]

Ya me di una idea con lo que comentas como son menus fijos solo voy recorriendo por codigo los botenes gracias