Hint no Combobox

Delphi

11/09/2012

Boa tarde !
Alguém tem alguma noção de como faço para que quando o usuário selecione um items do combobox aparecer o hint com o texto completo do items .

Desde já agradeço !
Christian

Christian

Curtidas 0

Respostas

Bruno Leandro

Bruno Leandro

11/09/2012

Teste colocar conforme o modelo abaixo no evento onChange do combo, e veja se é este o resultado esperado

procedure TForm.ComboBoxChange(Sender: TObject);
var
i: Integer;
begin
ComboBox.Hint := '';
for I := 0 to ComboBox.Items.Count - 1 do
ComboBox.Hint := ComboBox.Hint + ComboBox.Items[i] + Chr(13) + Chr(10);
end;
GOSTEI 0
Christian

Christian

11/09/2012

Este exemplo poderia ter me ajudado porém como traz todas as opçoes em um hint ficou muito grande pois são 99 opçoes que eu digitei no combobox, o que eu quero fazer é exatamente o que foi aplicado nos validadores Sped quando o usuario passa o mouse em cima da opção do combobox é trazido simultaneamente de cada opçao o hint com o texto completo, possibilitando o usuario a leitura de todo o texto da opçao em que ele esta posicionando o mouse.
GOSTEI 0
Marco Salles

Marco Salles

11/09/2012

em vez de varre seria so a opção atual , seria isto ???

var
i: Integer;
begin
ComboBox.Hint := '';
ComboBox.Hint := ComboBox.Hint + ComboBox.Items[i] ;
end;


???
GOSTEI 0
Christian Tito

Christian Tito

11/09/2012

Obrigado, consegui resolver o meu problema jogando este código :

procedure TFormCampos_Mercadoria.ComboBox2Select(Sender: TObject);
begin
inherited;
ComboBox2.Hint := '';
ComboBox2.Hint := ComboBox1.Hint + ComboBox2.Items[ComboBox2.ItemIndex];
end;

Valeu !
GOSTEI 0
Christian

Christian

11/09/2012

Obrigado, consegui resolver o meu problema jogando este código :

procedure TFormCampos_Mercadoria.ComboBox2Select(Sender: TObject);
begin
inherited;
ComboBox2.Hint := '';
ComboBox2.Hint := ComboBox1.Hint + ComboBox2.Items[ComboBox2.ItemIndex];
end;

Valeu !
GOSTEI 0
Wesley Yamazack

Wesley Yamazack

11/09/2012

Legal você compartilhar com a galera sua solução.

Um abraço
GOSTEI 0
Marco Salles

Marco Salles

11/09/2012

Obrigado, consegui resolver o meu problema jogando este código :

procedure TFormCampos_Mercadoria.ComboBox2Select(Sender: TObject);
begin
inherited;
ComboBox2.Hint := '';
ComboBox2.Hint := ComboBox1.Hint + ComboBox2.Items[ComboBox2.ItemIndex];
end;
Valeu !


Mas não precisa utilizar da primeira intrução é redutante neste código

procedure TFormCampos_Mercadoria.ComboBox2Select(Sender: TObject);
begin
  inherited;
  ComboBox2.Hint :=ComboBox2.Items[ComboBox2.ItemIndex];
end;
GOSTEI 0
Deivison Melo

Deivison Melo

11/09/2012

Vamos finalizar o tópico, pois a solução foi dada!

Qualquer dúvida, nós do fórum estamos a disposição!
GOSTEI 0
POSTAR