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;