Funcionalidad (Popup de ventanas abiertas)

[[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.

[Casimiro Notevi]

[[escafandra]]

Explico un poco más el sistema:

La idea más sencilla es hacerlo manualmente, de forma que se cree un MemuItem por cada formulario secundario y que cada Item tenga una forma de conocer su formulario asignado. Al mismo tiempo cada formulario debe conocer su MenuItem para proceder a su destrucción al cerrarse. La manera más sencilla de guardar estas cosas en el tag de cada componente mediante un puntero. De esta forma un OnClicMenuItem traería fácilmente a primer plano el formulario solicitado y si éste se cierra, podría destruir su MenuItem puesto que lo tiene guardado en su Tag.

Código Delphi [-]
// Este procedimiento se ejecutará cada vez que creemos o mostremos un formulario
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;

procedure TForm1.Opcion1Click(Sender: TObject);
begin
  Opcion(Form2);
end;

procedure TForm1.Opcion21Click(Sender: TObject);
begin
  Opcion(Form3);
end;

// Este procedimiento traerá al primer plano el formulario solicitado en el menú.
procedure TForm1.VentanaOpcion(Sender: TObject);
begin
  TForm((Sender as TMenuItem).Tag).BringToFront;
end;

En el formulario secundario pondremos el sigueinte codico en el evento OnClose:

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

Esto es muy sencillo pero para cada nuevo formulario que implementemos debe ser ajustado manualmente. Si queremos automatizar esto un poco más, nos tenemos que complicar un poco con técnicas de sunclassing del formulario principal y de los secundarios para ser capaces de responder a los mensajes WM_COMMAND enviados a los MenuItems del Formulario principal, responder apropiadamente y para conocer cuando se va a cerrar un formulario secundario.

Saludos.