Fórum Hint no Combobox #423441

11/09/2012

0

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

Responder

Posts

11/09/2012

Bruno Leandro

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;
Responder

Gostei + 0

12/09/2012

Christian

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.
Responder

Gostei + 0

12/09/2012

Marco Salles

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;


???
Responder

Gostei + 0

12/09/2012

Christian Tito

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 !
Responder

Gostei + 0

12/09/2012

Christian

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 !
Responder

Gostei + 0

13/09/2012

Wesley Yamazack

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

Um abraço
Responder

Gostei + 0

13/09/2012

Marco Salles

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;
Responder

Gostei + 0

13/09/2012

Deivison Melo

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

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

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar