Problemas com ComboBox
10/05/2003
0
Eu tenho uma combobox que vai listar 3 nomes, no caso nome de vendedoras.
Então na propriedade Items coloquei os nomes.
Ao clicar no botão Inserir todos os dados do formulário são inseridos.
Então :
procedure Tfrm_CadastroMercadoria.btn_InserirClick(Sender: TObject);
InsereDados;
cbox_Nome.clear;
end;
O formulário está pronto para nova inserção, certo ?
O problema é que a combo não vem com os 3 nomes listados e eu gostaria que
eles já viessem listados, para que o usuario não precisasse digitar. Estes
nomes não estão em tabela alguma, eles serão inseridos. E serão sempre 3 por
isso não quero que o usuario digite, apenas selecione.
No codigo do programa apenas peço para limpar a combo, não coloquei nenhum
codigo para carregá-la novamente.
Desculpe se apergunta é boba, mas é que sou iniciante em Delphi.
Obrigada Marina
Então na propriedade Items coloquei os nomes.
Ao clicar no botão Inserir todos os dados do formulário são inseridos.
Então :
procedure Tfrm_CadastroMercadoria.btn_InserirClick(Sender: TObject);
InsereDados;
cbox_Nome.clear;
end;
O formulário está pronto para nova inserção, certo ?
O problema é que a combo não vem com os 3 nomes listados e eu gostaria que
eles já viessem listados, para que o usuario não precisasse digitar. Estes
nomes não estão em tabela alguma, eles serão inseridos. E serão sempre 3 por
isso não quero que o usuario digite, apenas selecione.
No codigo do programa apenas peço para limpar a combo, não coloquei nenhum
codigo para carregá-la novamente.
Desculpe se apergunta é boba, mas é que sou iniciante em Delphi.
Obrigada Marina
Marina
Curtir tópico
+ 0
Responder
Posts
10/05/2003
4_olho
Na sua proceduire de inserção você está APAGANDO todo o conteúdo do combobox, quando na verdade queria deixar ´em branco´. Certo ?
Pra deixar em branco, você deve usar a propriedade ItemIndex.
Na sua procedure, troque :
procedure Tfrm_CadastroMercadoria.btn_InserirClick(Sender: TObject);
InsereDados;
// cbox_Nome.clear; ISTO APAGA O CONTEÚDO DA COMBO
cbox_Nome.ItemIndex := -1;
end;
Pra deixar em branco, você deve usar a propriedade ItemIndex.
Na sua procedure, troque :
procedure Tfrm_CadastroMercadoria.btn_InserirClick(Sender: TObject);
InsereDados;
// cbox_Nome.clear; ISTO APAGA O CONTEÚDO DA COMBO
cbox_Nome.ItemIndex := -1;
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)