Funcionalidad (Popup de ventanas abiertas)

[[oscarac]]

buenas tardes

quisiera implementar lo siguiente a ver si me dan una mano


imaginenos un menu

Catalogos.... Operaciones......Reportes....etc... etc..... VENTANAS....
opcion1 opcion1 opcion1
opcion2 opcion2 opcion2
opcion3 opcion3 opcion3


en asunto es que si voy al menu operaciones y escojo la opcion 2 me gustaria que en el menu VENTANAS aparezca una opcion

es decir
cuando se abren muchas ventanas a veces uno se puede perder y el menu ventanas nos ayudara a "activar la ventana" que queramos


me dejo entender?


supongo que hay que crear el popup dinamicamente, la cosa es como "activar" de acuerdo a la opcion escogida en el menu Ventanas

[[escafandra]]

Para añadir Items al menú puedes hacer algo como esto:

Código Delphi [-]
var
  Item: TMenuItem;
begin
  Form2.Show;
  Item:= TMenuItem.Create(MainMenu1);
  Item.Caption:= 'Opcion1';
  Ventanas.Insert(Ventanas.Count, Item);
end;

Saludos.

[manelb]

Pues si no recuerdo mal, y he entendido bien lo que pretendes, creo que esto es automático...

En el formulario principal debes asignar dos propiedades:
-La propiedad Menu donde se le asigna el menú principal vinculado a la ventana
-La propiedad WindowMenu que es el punto de menú donde se acumulan las ventanas creadas, y al clicar te devuelve la ventana seleccionada.

Creo recordar que esto solo funciona con ventanas MDI(no estoy seguro)

Saludos

[[escafandra]]

Una forma fácil de hacerlo manualmente es mediante el uso de la propiedad tag:

Código Delphi [-]
procedure TForm1.Opcion(Form: TForm);
var
  Item: TMenuItem;
begin
  Form.Show;
  Item:= TMenuItem.Create(MainMenu1);
  Item.Caption:= Form.Caption;
  Item.Tag:= integer(Form);
  Item.OnClick:= VentanaOpcion;
  Form.Tag:= integer(Item);
  Ventanas.Add(Item);
end;

Y en los formularios secundarios colocar esto en el evento OnClose:

Código Delphi [-]
procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  with Form1.Ventanas do
    Delete(IndexOf(TMenuItem(self.tag)));
  TMenuItem(self.tag).Free;
end;

Automatizar esto requiere algo mas de trabajo pero se puede hacer con un par de clases y realizando sunclassing del formulario principal y de los secundarios.




Saludos.

[Casimiro Notevi]

Empezado por escafandra

Item.Tag:= integer(Form);

¿integer(Form) qué guarda, un puntero al formulario?

[[escafandra]]

Empezado por Casimiro Notevi

¿integer(Form) qué guarda, un puntero al formulario?

Exacto. El MenuItem guarda un puntero al formulario hijo y éste guarda un puntero a su MenuItem.

Saludos.