 |
||
| ||
| |||||
| Dernière réponse | |
|---|---|
| Sujet : [DELPHI] Ajouter des menus par Prog | |
| [SDF]Poire | 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; |
| Vue Rapide de la discussion |
|---|
