Bonsoir,
J'aurais besoin d'un petit coup de pouce pour mon application.
En gros je crée plusieurs objets d'un popupmenu, ceux-ci sont sauvegardés dans un fichier INI que je charge au lancement de l'application afin de recréer les objets précédemment ajoutés. Jusque là, aucun problème.
Là où mon soucis se pose c'est au moment de l'affectation de l'évènement "OnClick" des objets.
Le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 procedure AjouterUnItem(PopupMenu:TMenuItem;FichierIniACharger,Section,Cle,default:String); begin MenuItem:=TMenuItem.Create(PopupMenu); MenuItem.Caption:=INI.ReadString(Section,Cle,default); MenuItem.OnClick := Form5.AjoutClic; MenuItem.Name:=nomitem; PopupMenu.Add(menuItem); end;Comme vous l'avez compris, l'évènement OnClick scrute un dossier donné et en affiche les fichier dans un listbox.
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 Procedure TForm5.AjoutClic(Sender: TObject); var nom: string; Begin //RECHERCHE DANS LE INI DE LA CLE 'chemin', RECUPERER LA VALEUR chemin:= //??? form2.ListBox1.Items.Clear; If FindFirst(chemin+'*.*',faAnyFile,Info)=0 Then Begin Repeat If (Info.Attr And faDirectory)=0 Then form2.ListBox1.Items.Add(Info.FindData.cFileName); //affichage des fichier Until FindNext(Info)<>0; FindClose(Info); End; End;
Tout celà se fait sans soucis. En fait je voudrais avoir un évènement différent pour chaque objet : mon fichier INI sauve en plus du 'caption' de l'objet créé le dossier vers lequel il doit pointer. J'avais penser à récupérer la valeur correspondante au caption de l'objet cliqué avec par exemple ReadSection mais je rame...
Voilà. Si vous avez une idée ou une suggestion, elle est la bienvenue =D
Merci d'avance.
Partager