Fórum Adicionar TComboExItems em tempo de execução #269532
21/02/2005
0
Em tempo de execução eu tenho que colocar no imagelist os icones de dentro de uma pasta.. sso eu já fiz...
Depois eu tenho que criar em um TComboBoxEx vários TComboBoxExItens e apontar cada um pra uma imagem do Listimage.
Estou tentando percorrer os itens do Listimage e adicionando um TComboBoxExItens pra cada icone...
Segue abaixo parte do cod.
procedure TF_TAREFAS.FormCreate(Sender: TObject);
var
i : integer;
B : TBitmap;
a : TComboExItems;
begin
...
cod q importa os icones para o listimage (já verifiquei e estão sendo criados realmente)
...
for i:= 0 to F_GERAL.ImageList1.ComponentCount -1 do
begin
a := TComboExItems.Create(XXXXXX);
O erro está dando dentro do create.. Já tentei colocar no lugar do xxxxx, nil, sem nada, application, self, cb_icones (nome do componente q vai receber os TComboExItems ) e nada dá certo... O erro é Not enough actual parameters
Não sei mais o q fazer.. Alguém pode me dizer como fazer isso??
Zenner
Curtir tópico
+ 0Posts
21/02/2005
Beppe
T+
Gostei + 0
21/02/2005
Zenner
a := TComboExItems.Create(CB_ICONES, TComboExItem);
a.imageindex := i;
Porém, como digo que aquele TComboExItems terá como imageindex o numero 5? Qdo coloco a.imageindex ele num tem a propriedade.. Como faço pra concluir isso?
Valeu pela força.. Tô perdidinho da silva
Gostei + 0
21/02/2005
Beppe
A maneira de adicionar ítens é assim:
a := ComboBoxEx1.ItemsEx.Add; a.ImageIndex := 5;
TComboExItems é a coleção inteira de ítens por isto não tem ImageIndex, nem nada que seja específico a um ítem.
Espero que esclareci.
T+.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)