Cacher la barre de menu [Résolu]

Indelphini 20 Messages postés mardi 10 février 2004Date d'inscription 5 mai 2006 Dernière intervention - 12 sept. 2005 à 23:26 - Dernière réponse : cs_Delphiprog 4580 Messages postés samedi 19 janvier 2002Date d'inscription 9 janvier 2013 Dernière intervention
- 14 sept. 2005 à 22:49
Bonjour

est-il possible de cacher la barre de menus en cours d'exécution ? La propriété Visible n'existe pas pour TMainMenu.

Merci
Afficher la suite 

2 réponses

Répondre au sujet
jlen100 1651 Messages postés samedi 10 juillet 2004Date d'inscription 25 juillet 2014 Dernière intervention - 13 sept. 2005 à 06:16
+3
Utile
salut
pour masquer ou montrer un Tmainmenu il te suffit d rendre invisible les items qui le composnt par exeùmple si item1, item2, item3 sont les items de mainmenu1

procedure TForm1.masqueClick(Sender: TObject);
begin
with mainmenu1 do
begin
item1.visible:=false;
item2.visible:=false;
item3.visible:=false;
end;
end;

procedure TForm1.montreClick(Sender: TObject);
begin
with mainmenu1 do
begin
item1.visible:=true;
item2.visible:=true;
item3.visible:=true;
end;
bonne prog
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de jlen100
cs_Delphiprog 4580 Messages postés samedi 19 janvier 2002Date d'inscription 9 janvier 2013 Dernière intervention - 14 sept. 2005 à 22:49
+3
Utile
En utilisant une case à cocher pour afficher ou masquer la barre de menus et, de façon plus générique :

procedure TForm1.CheckBox1Click(Sender: TObject);
var
  i: integer;
begin
with MainMenu1 do
for i :=  0 to  Items.Count - 1do
      Items[i].Visible : = CheckBox1.Checked;
end;



<HR color=#008000>
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de cs_Delphiprog

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.