Discussion :

[laclac]

Bonjour,

J'aimerais savoir comment on détermine si un TMenuItem est un menu ou un sous menu ?

En faite, j'ai un PopupMenu contenant des elements et des sous menu. J'aimerais mettre en default, le premier élément qui n'est un un sous menu. Or je n'arrive pas à faire une méthode pour les différencer.

Merci davance

[TicTacToe]

Salut,
Cherche du coté de

Code :

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

TMonMenuItem.Parent

[bubulemaster]

En effet il y a cette possibilité :

Code :

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

1
2
3
if (Menu1.Parent is TMenuItem) 
then
    Caption := 'menu avec parent' ;

[laclac]

Bonjour,

Merci beaucoup, toutefois, celà ne fonctionne pas !
Pour modéliser un peu mieux mon problème, je souhaite réaliser un menu reproduisant un dossier contenant des dossiers et des fichiers avec ses sous dossiers(on prendra comme exemple le c:/') .

Je veux mettre en defaut uniquement un fichier après que le menu soit construit.
Voici ci dessous, le speudo code que j'ai fait pour construire mon menu..
Dans vos propositions, tout mes élements sont des TMenuitem, donc celà ne fonctionne pas.

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
27
 
 
CréerMenu('c:/',PopupMenu1.Items);
 
Function CréerMenu(Chemin :string;Parent: TMenuitem);
var         myitem:Tmenuitem;
begin
 
> Boucle de scanne tout les élements de repertoire "Chemin"
>
> nomDuFichier:=FindData.cFileName;
> if(nomDuFichier = dossier)then
> begin
>        myitem:=TMenuitem.Create(Self);
>         myitem.caption := nomDuFichier;
>         Parent.Insert(0,myitem);
>         CréerMenu(Chemin +'\' + nomDuFichier, myitem);
> end else if(nomDuFichier = fichier)then
> begin
> 
>         myitem:=TMenuitem.Create(PopupMenu1);
>         myitem.caption := nomDuFichier;
>         Parent.Insert(0,myitem);
> end;
>end;
 
end;

[bubulemaster]

En fait, tu veux créer des sous-menus dynamiquement ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
var MonSousMenu1 : TMenuItem ;
     TableauSousMenu : array of TMenuitem ;
begin
    MonSousMenu1 := NewSubMenu('label du menu', 0, 'NomSubItem' , TableauDesElementDuSousMenu_ListItem, True)  ;
 
    SetLength(TableauSousMenu, 1) ;
 
    TableauSousMenu[0] := MonSousMenu1 ;
 
    NewPopupMenu(Self, 'MonMenuToutEnHaut', paLeft, True, TableauSousMenu) 
end ;

J'espère avoir été clair, ce n'est pas évident de créer des menus dynamiquement.