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'
; <------Comment ici avoir le nom de l'item qui a été cliké?
end;