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