Discussion :

[LuckyLuke56]

Bonjour,
Je souhaite selon un paramètre de l'ini rendre "enable" un item de menu et afficher un dbgrid plutot qu'un autre dans mon TForm?
Comment puis-je appeler les propriétés de ces objets et les modifier dans ma procédure.

merci de votre éclairage,

[rsc]

Les propriétés Enabled et Visible que tu veux utiliser étant de type Boolean, tu peux utiliser :

Code :

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

MonMenu.Enabled := MonInifile.ReadBool('SECTION', 'Clé', True);

et dans ta clé, tu mets =1 si tu veux activer, =0 dans le cas contraire.

[LuckyLuke56]

Bizarre
Je n'ai pas d'erreur à la compilation et cela ne fonctionne pas.
Les menus s'affichent sans tenir compte de l'ini.
Sans doute quelque chose qui m'échappe.
Merci

[rsc]

"ca fonctionne pas" n'aide pas beaucoup à trouver la solution
Il faut cerner le problème, et vérifier dans l'ordre :
1/ si ton programme passe bien par la ligne où tu appelles ReadBool,
2/ si oui, si la valeur renvoyée par ReadBool est bien la bonne,
Quand on en sera là, on se demandera pourquoi ton menu ne s'active pas.

[GoustiFruit]

Reprenons les bases...

Bien sûr 'SECTION' correspond à la section de ton fichier ini et 'Clé' à la clé de cette section qui stocke l'état du menuitem !
Ensuite la valeur 'True' donnée dans l'exemple est la valeur par défaut si cette clé n'existe pas dans ton ini donc d'abord tu vérifies que tu as bien la section et la clé dans ton fichier ini; tu peux la changer à False si tu préfères désactiver l'entrée du menu par défaut.
Et bien sûr il faut que tu enregistres à un moment donnée la valeur de ta propriété dans ton fichier ini sinon au prochain lancement tu en seras au même point...

[popo]

Contenu du fichier INI :

[ACTIVER]
Menu1=0
Grid1=0

Code :

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

F := TIniFile.Create('MonFichier.Ini');

Puis pour le menu :

Code :

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

1
2
3
 
ActiverMenu := F.ReadInteger('ACTIVER','Menu1',0);
MonMenu.Enabled := (ActiverMenu = 1);

Pour le grid :

Code :

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

1
2
3
4
 
ActiverGrid1 := F.ReadInteger('ACTIVER','Grid1',0);
MaGrid1.Visible := (ActiverGrid1 = 1);
MaGrid2.Visible := (ActiverGrid1 = 0);

A la Fin

Code :

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

F.Free;