Salut,
j'ai ajouté un Sousmenu via prog, (TMenuItem, puis add) sans problème
le problème c pour lui affecter du code
Comment faire?
Merci  

procedure TForm1.Button5Click(Sender: TObject);
var
  NewItem: TMenuItem;
  Item2: TMenuItem;
  Menu: TMainMenu;
begin
  Menu := TMainMenu.Create(Self);
  NewItem := TMenuItem.Create(Self);
  Item2 := TMenuItem.Create(Self);
 
  NewItem.Caption := 'menu';
  Item2.Caption := 'sous menu';
  Item2.OnClick := SMenuClick;
 
  NewItem.Add(Item2);
  Menu.Items.Add(NewItem);
end;
 
procedure TForm1.SMenuClick(Sender: TObject);
begin
  ShowMessage('Click';
end;