Bonjour,

J'ai un élément de menu "Windows" dans le menu principal, depuis lequel je voudrais créer un sous menu par fenêtre ouverte (à la facon du menu window d'une application MDI)

Sur l'évènement OnClick du menu Window je créé les sous menu comme suit (pour l'exemple uniquement):
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
procedure TFormApp.MenuWindowClick(Sender: TObject);
Var
  i : integer;
  Menu:TMenuItem;
begin
  while MenuWindow.Count>0 do TMenuItem(MenuWindow.Items[0]).free;
 
  For i:=0 to 10 do
  Begin
    Menu := TMenuItem.Create(MenuWindow);
    Menu.Caption := 'Menu #'+IntToStr(i+1);
    MenuWindow.Add(Menu);
  End;
end;
Mais le problème est que le menu window ne s'ouvre pas et ne laisse donc pas apparaitre les sous menu?
Quelle solution à ce problème ?
Existe-t-il une fonction du genre MenuWindow.expand ?? Je n'ai pas trouvé.

merci
Franck