Dúvida em ComboBox

Delphi

29/06/2009

Se colocar o ComboBox em Enabled = False, como faço para a ´setinha´ não ficar preta, mas adotar um BtnFace, semelhante ao TDBLookupComboBox quando está em Enabled = False?


Paulo

Paulo

Curtidas 0

Respostas

Emarcolongo

Emarcolongo

29/06/2009

Por que vc não coloca o componente ? A parte branca do combo ficará com o btnface, indicando que esta desabilitado.

combobox1.color := clbtnface;

e setando o Enabled := false a seta já ficará clara ou seja com btnface.


GOSTEI 0
Paulo

Paulo

29/06/2009

Não sei o que houve quando eu mandei esse post não estava ficando, mas depois ficou como eu queria. Acho que precipitei no post, sem fazer um teste mais apurado. Agora eu pergunto. Eu preciso que o ComboBox fique Enabled = false, mas é possível à medida que eu for rolando o Grid(Scroll da Query), a Combo vá trazendo os itens de acordo com determinados registros da Query? Se ela está em Enabled = True, funciona, mas não está funcionando co false, ou seja, a propriedade ItemIndex não está sendo chamada quando está em False. Tem como? A procedure que faz isso está abaixo:
procedure TfrmNotasServico.CarregaCombo;
var
  i: Integer;
begin
  if qryAbrangencia.Locate(´ABRANGENCIA´, qryNotasServico.FieldByName(´ABRANGENCIA´).AsString,[]) then
    for i := 0 to Pred(cbxAbrangencias.Items.Count) do
    begin
      if cbxAbrangencias.Items[i] = qryAbrangencia.FieldByName(´DESCRICAO´).AsString then
        cbxAbrangencias.ItemIndex := i;
    end;
end;



GOSTEI 0
POSTAR