Fórum Hint no Combobox #423441
11/09/2012
0
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
Curtir tópico
+ 0Posts
11/09/2012
Bruno Leandro
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
12/09/2012
Christian
Gostei + 0
12/09/2012
Marco Salles
var
i: Integer;
begin
ComboBox.Hint := '';
ComboBox.Hint := ComboBox.Hint + ComboBox.Items[i] ;
end;
???
Gostei + 0
12/09/2012
Christian Tito
procedure TFormCampos_Mercadoria.ComboBox2Select(Sender: TObject);
begin
inherited;
ComboBox2.Hint := '';
ComboBox2.Hint := ComboBox1.Hint + ComboBox2.Items[ComboBox2.ItemIndex];
end;
Valeu !
Gostei + 0
12/09/2012
Christian
procedure TFormCampos_Mercadoria.ComboBox2Select(Sender: TObject);
begin
inherited;
ComboBox2.Hint := '';
ComboBox2.Hint := ComboBox1.Hint + ComboBox2.Items[ComboBox2.ItemIndex];
end;
Valeu !
Gostei + 0
13/09/2012
Wesley Yamazack
Um abraço
Gostei + 0
13/09/2012
Marco Salles
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
13/09/2012
Deivison Melo
Qualquer dúvida, nós do fórum estamos a disposição!
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)