Funcionalidad (Popup de ventanas abiertas)

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