Discussion :

[rec82]

salut
j'utilise un maimenu dans mon apllication ,ce mainmenu contient 03 volets ,chaque volet contient des sous menu, je veut désactiver le 01 et 02 volet au demarage de l'application,je utilise ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm18.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
if (edit1.Text='aa')and (edit2.text='bb') then
form2.showmodal;
form2.mainmenu1.items[0].enabled:=false;
form2 .mainmenu1.items[1].enabled:=false
end;
end;

mais ça na pas marché.
merci cordialement rec82.

[BuzzLeclaire]

Salut,

empecher l'accès par exemple du 2 ème sous-menu qui se trouve dans le 2ème menu, sans empécher l'acces aux autres sous-menu

MenuGeneral.Items[1].Items[1].Enabled := false;

[1], parceque les menus commencent à 0

Bye...

[BuzzLeclaire]

Oups..

ne pas lire
[1], parceque les menus commencent à 0

mais plutot
[1], parceque les items des menus commencent à 0

[rec82]

salut
marci beacoup ça marche trés bien,on met :

Code :

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

1
2
form2.mainmenu1.items[0].enabled:=false;
form2 .mainmenu1.items[1].enabled:=false

avant

Code :

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

form2.showmodal;

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm18.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
if (edit1.Text='aa')and (edit2.text='bb') then
form2.showmodal;
form2.mainmenu1.items[0].enabled:=false;
form2 .mainmenu1.items[1].enabled:=false
end;
end;

merci beacoup autre fois BuzzLeclaire.
cordialement rec82.

[rec82]

pardant le code devient comme ça:
procedure TForm18.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
if (edit1.Text='aa')and (edit2.text='bb') then
form2.mainmenu1.items[0].enabled:=false;
form2 .mainmenu1.items[1].enabled:=false;

form2.showmodal;

end;
end;

cordialement.