Discussion :

[Gouyon]

Bonjour à tous

Je fait une listbox custom avec une icone, un texte et une combobox:



J'ai donc crée un style pour un TListBoxItem



Et pour remplir ma liste j'utilise le code suivant:

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
 
lbTirs.Clear;
for itrl := 0 to laBatt.nbTourelles - 1 do
    begin
      trl := laBatt.tourelle[itrl];
      if Not(trl.estHS) then
      begin
        item := TListBoxItem.Create(nil);
        item.StyleLookup := 'lbBatterieitemstyle';
        item.NeedStyleLookup;
        item.ApplyStyleLookup;
        item.ImageIndex := trl.getfloc;
        item.Text := trl.description;
        item.Parent := lbTirs;
        rr := item.FindStyleResource('cbCibles');
        if rr <> nil then
        begin
          if rr is TComboBox then
           cbCible:=TComboBox(rr);
        end;
      end;
    end;

Lors du remplissage j'ai besoin d'accéder à la TCombobox de chaque TListBoxItem pour la remplir avec des valeurs spécifique d'où l'usage de FindStyleResource. Malheureusement rr qui est déclaré comme un TFmxObject est toujours nil.
Du coup impossible de remplir mes combobox
Une idée?