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.