ComboBox - como usar pra fazer isso aqui oh
Tenho uma tabela de Categoria
Codigo: 2 caracteres
Descricao: 20 caracteres
Quero usar um combobox num filtro, que liste as descriçoes das categorias, mas quando eu clicar no botao filtrar, ele tras do combobox o codigo (que é o que interessa pra ligar à tabela de clientes)
na tabela de clientes ele vai verificar quem tem o codigo igual ao pego no combobox
meu problema é: como faço esse combobox listar as descrições das categorias e por tras passar como parametro o código?
Codigo: 2 caracteres
Descricao: 20 caracteres
Quero usar um combobox num filtro, que liste as descriçoes das categorias, mas quando eu clicar no botao filtrar, ele tras do combobox o codigo (que é o que interessa pra ligar à tabela de clientes)
na tabela de clientes ele vai verificar quem tem o codigo igual ao pego no combobox
meu problema é: como faço esse combobox listar as descrições das categorias e por tras passar como parametro o código?
Garciabh2
Curtidas 0
Respostas
Afarias
17/11/2003
Acho q vc poderia usar um LookupCombobox aqui... mas, se quer fazer com um ComboBox básico, vc pode usar a propriedade Objects do TStrings (propriedade Items), ex::
with ComboBox1.Items do
begin
S := ´01´;
AddObject(´Teste 1´, TObject(S));
S := ´02´;
AddObject(´Teste 2´, TObject(S));
S := ´03´;
AddObject(´Teste 3´, TObject(S));
end;
(claro, q no código real, vc deve usar um LOOP acima.!! -- e note que S é uma variável STRING)
e, no OnChange do ComboBox vc usa::
ValorString := string(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
T+
with ComboBox1.Items do
begin
S := ´01´;
AddObject(´Teste 1´, TObject(S));
S := ´02´;
AddObject(´Teste 2´, TObject(S));
S := ´03´;
AddObject(´Teste 3´, TObject(S));
end;
(claro, q no código real, vc deve usar um LOOP acima.!! -- e note que S é uma variável STRING)
e, no OnChange do ComboBox vc usa::
ValorString := string(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
T+
GOSTEI 0