Discussion :

[jeffray03]

bonjour tout le monde,
j´ai un petit souci, meme si celui ci peut apparement paraitre banal, car avec delphi 7, je cree un subitem et je peux a l´aide de la methode add(), faire cela.
voici mon probleme :
avec delphi 7 je le cree comme ceci en temps reel :

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
16
17
18
 
procedure TfNexumBDE.creerSubItem(Sender: TObject);
var 
    pm       : TPopupMenu;;
    mb       :TMenuItem;
    mi   :TMenuItem;
begin
  mb         := TMenuItem.Create(self);
  mb.Name    := "demo";
  mb.Caption  := "test";
  for i:=0 to 5
  begin
    mi         := TMenuItem.Create(mb);
    mi.Name    := 'demo' + InttoStr(i);
    mi.Caption  := 'test' + InttoStr(i);
	pm.Items.Add(mb);
  end;
 end.

est ce que quelqu´un pourrait me dire comment l´a cree dans delphi 2009?

merci d´avance pour votre aide.

[jeffray03]

bonjour tout le monde,
j´avais oublié de preciser,
le nouveau menu se fera avec ribbonpopupmenu.
voici un debut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
// je cree un menu ribbon 
mb: TdxBarItem;
mi   : TdxBarItem;
rpm: TdxRibbonPopupMenu;
 
//et ensuite un truc de ce genre.
rpm.ItemLinks.Add.Item := mi ;

ceci compile, mais affiche une faute lorsque je clique dessus.
donc il ya un probleme, mais je ne sais pas a quel niveau cela se situe.
merci d´avance.

[anapurna]

salut

je pense que tu as du oublier de creer l'item

Var
// je cree un menu ribbon
mb: TdxBarItem;
mi : TdxBarItem;
rpm: TdxRibbonPopupMenu;
Begin
mi := TdxBarItem.create(rpm);
mi.
....
//et ensuite un truc de ce genre.
rpm.ItemLinks.Add.Item := mi ;

@+Phil

[jeffray03]

salut, voici exactement ce que je voulais, j´ai pu le resoudre en faisant d´autres recherches.

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
16
17
18
19
20
21
22
23
24
25
26
 
// MenuBar est soit un menu qu´on a crée et qu´on veut ajouter des Items //avec ou sans sous menu
// chez moi par example c´est un tdxribbonpopupmenu 
procedure TForm1.Button1Click(Sender: TObject);
var
  SubItem: TdxBarSubItem;
  Button: TdxBarButton;
  ItemLink: TdxBarItemLink;
 
begin
  SubItem := TdxBarSubItem.Create(Self);
  SubItem.Caption := 'Edit';
  ItemLink := MenuBar.ItemLinks.Add;
  ItemLink.Item := SubItem;
  ItemLink.Index := 1;
 
  Button := TdxBarButton.Create(Self);
  Button.Caption := 'Paste';
  SubItem.ItemLinks.Add.Item := Button;
 
  SubItem := TdxBarSubItem.Create(Self);
  SubItem.Caption := 'Tool';
  ItemLink := MenuBar.ItemLinks.Add;
  ItemLink.Item := SubItem;
  ItemLink.Index := 2;
end;

merci encore a vous.