combobox Combobox

[hunter2017]

Olá amigos programadores em delphi, estou com dificuldades com os parâmetros do meu combobox, tem nele um texto, mas eu gostaria que esse texto se apagasse com um único clique, ou seja, ao clicar uma vez no campo do combobox esse texto sumisse..Eu tentei encontrar outros posts relacionados a isso mas não encontrei. Tentei usar combobox1.ClearSelection; mas não foi o que eu queria. Alguém pode me dar uma sugestão?

[Jhonas]

Isso é muito simples:

quando voce criar a lista do combobox, deixe o primeiro item em branco ( vazio )

no evento OnDbClick voce coloca

procedure TForm1.ComboBox1DblClick(Sender: TObject);
begin
   ComboBox1.ItemIndex := 0;
end;

então quando voce der um click duplo com o mouse no item que estiver aparecendo, ele ficara vazio  ( na realidade ele apontara para o primeiro item da lista que é vazio )

abraço

[hunter2017]

Ainda não passei os itens da listbox para o combobox, porque isso se faz por data modulo que eu ainda estou estudando, a minha listbox fica em outro form, sobre esse comando, eu posso colocar no evento onclick para que seja com apenas um clique não posso?

[Jhonas]

não pode, porque , se voce der um clique para escolher outro item, ele vai ficar vazio todas as vezes...  tem que ser no evento OnDbClick.

abraço

[hunter2017]

Mas não existe uma forma de fazer isso com um click? O texto não é um item da listbox, é apenas um texto que eu coloquei utilizando a função text do object inspector do combobox, conheço um programa que ao clicar no combobox dele o texto some.

[Jhonas]

Ok...  acho meio sem sentido, mas voce pode fazer isso

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
   ComboBox1.Items.Strings[ComboBox1.ItemIndex] := '';
end;

abraço

[hunter2017]

Não acontece nada no combobox, o texto ainda esta la quando eu clico uma vez o texto não some como deveria.

[Jhonas]

amigo, não posso adivinhar o seu código...  se voce não postar o código fica dificil ajudá-lo

 

[hunter2017]

Talvez esse comando não funciona porque não tem a listbox com os items que será passado para o combobox, mas o que faz esse comando que postou aí, explique.

[Leo_cj]

Conforme o nosso amigo Jhonas disse, eu também acho que seria inviável a utilização desse código no evento OnClick() (Apenas um clique), pois para poder selecionar os itens que estarão no ComboBox será necessário clicar nele antes, e isso vai disparar o evento OnClick que vai 'Limpar' o texto do combobox, fazendo com que você não consiga escolher nenhum item se não o vazio.

Por isso acredito que ou você utiliza o evento OnDbClick() (Click duplo) ou então utiliza um botão auxiliar para limpar, ou ainda deixa que caso o usuário queira limpar, ele selecione a opção em branco (pra isso você precisa inserir um item em branco).

 

Agora vamos a explicação dos códigos:

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
   ComboBox1.Items.Strings[ComboBox1.ItemIndex] := '';
end;

Nesse primeiro código, temos a implementação do evento disparado por um clique único. Nesse evento, temos dois códigos assim por dizer, o ComboBox1.Items.Strings[ ], pelo qual podemos manipular o texto do item cujo index for passado entre os colchetes e o outro código é o ComboBox1.ItemIndex, que nos retorna justamente qual o Index do item selecionado no combobox.

Então podemos dizer que a junção desse código nos permite manipular o texto  do item que está atualmente selecionado no combobox, e nesse caso em específico, está sendo passado um novo valor (Vazio) para esse item.

procedure TForm1.ComboBox1DblClick(Sender: TObject);
begin
   ComboBox1.ItemIndex := 0;
end;

Nesse segundo código, temos a implementação do evento disparado por um clique duplo. Como vimos no código anterior, o ItemIndex nos retorna o Index do item selecionado, mas nesse caso estamos fazendo um pouco diferente, essa propriedade tem duas vias, a de leitura e a de gravação, no primeiro código, estamos utilizando a via de leitura, que nos retorna o Index do item selecionado, nesse código aqui, estamos utilizando a via de gravação, e ela nos permite informar o Index do item que queremos que esteja selecionado, nesse caso, o Index 0 (Primeiro item do combobox) é o item em branco, então estamos dizendo que quando o usuário der um clique duplo no combobox, o item selecionado deve ser o primeiro item.

Editado Agosto 25, 2017 por Leo_cj