Bonjour à toutes et à tous,
Avant tout, je profite de l'occasion pour vous présenter mes meilleurs voeux ainsi qu'à votre famille.
J'utilise un fichier *.ini, avec comme code :
Cb1 et Cb2 = Tradiobutton
Cela fonctionne parfaitement.
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
28
29
30
31
32
33
34
35
36 procedure TFTest.LitFichierIni; var FichierIni: TIniFile; begin FichierIni:= TIniFile.Create(repertoire +'Mod.ini'); Cb1.checked:= FichierIni.ReadBool('Groupe1', 'Mode 1', true); Cb2.checked:= FichierIni.ReadBool('Groupe1', 'Mode 2', false); FichierIni.Free; end; procedure TFTest.EcritFichierIni; var FichierIni: TIniFile; begin FichierIni:= TIniFile.Create(repertoire +'Mod.ini'); FichierIni.WriteBool('Groupe1', 'Mode 1', Cb1.checked); FichierIni.WriteBool('Groupe1', 'Mode 2', Cb2.checked); FichierIni.Free; end; procedure TFTest.FormClose(Sender: TObject; var Action: TCloseAction); begin EcritFichierIni; end; procedure TFTest.FormActivate(Sender: TObject); begin LitFichierIni; end;
Par contre si j'utilise un popupmenu au lieu de Tradiobutton, l'écriture/lecture dans le fichier *.ini fonctionne mais pas l'action.
Je m'explique l'item coché s'enregistre et se lit mais pas comme avec le Tradiobutton.
Si quelqu'un avait une idée.
Merci d'avance,
Cincap
Partager