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?

[pprem]

Bonjour Rémi

Je viens de tenter ça et ça fonctionne :

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
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  item : TListBoxItem;
  cb:tcombobox;
begin
  for i := 1 to 20 do begin
    item := tlistboxitem.Create(ListBox1);
    item.parent := listbox1;
    item.StyleLookup:='ListBoxItem1Style1';
    item.Text := 'item '+i.ToString;
    if item.FindStyleResource<tcombobox>('ComboBox1Style',cb) then
    begin
      cb.items.add('coucou '+i.tostring);
      cb.itemindex:=0;
    end;
  end;
end;

J'ai juste fais un style personnalisé pour un item dans un listbox et y ai ajouté le combobox.

[Gouyon]

Effectivement ça semble fonctionner.
C'est assez étrange car j'avais déjà essayé cette solution et ça n'avait pas fonctionné.

[pprem]

Effectivement ça semble fonctionner.

Du coup tu as réussi à adapter ton code ou tu bloques toujours ?

[Gouyon]

Du coup tu as réussi à adapter ton code ou tu bloques toujours ?

Oui j'aurais du préciser que mon code fonctionne maintenant.