12 Comentários

  1. Helio

    Olá amigo! Consegui carregar meus clientes cadastrados no combobox, obrigado!
    Agora, como faço para que, quando selecionar um cliente, o CPF deste cliente seja carregado em outro campo?


  2. Oi Helio, que bom que conseguiu! 🙂
    Para carregar o CPF ou qualquer outro campo do cliente, você vai ter que programar no evento “OnClick” do seu ComboBox ou colocar um botão abrindo a sua tabela posicionada no cliente que está selecionado no ComboBox. Você vai ter que fazer um SQL passando como parâmetro o Objeto que carregou no ComboBox.

    Vai ficar algo do tipo:

    SELECT * FROM SUA_TABELA WHERE SEU_CAMPO_CARREGADO_COMO_OBJETO_NO_COMBOBOX =:PARAMETRO

    Query.Close;
    Query.Params[0].AsInteger:=Integer(ComboBox.Items.Objects[ComboBox.ItemIndex]);
    Query.Open;

    Abraços.

  3. Gabriel Souza

    Olá, Felipe

    Gostei muito do seu post.
    Minha duvida é a seguinte eu preencho o combobox:
    ComboBox1.Items.Clear;
    ComboBox1.Items.AddObject(‘ATIVO’, TObject(1));
    ComboBox1.Items.AddObject(‘CANCELADO’, TObject(2));
    ComboBox1.Items.AddObject(‘TRANSFERIDO’, TObject(3));
    ComboBox1.Items.AddObject(‘DESISTENTE’, TObject(4));

    Como eu consigo setar o combobox passando somente o código do objeto?
    exemplo:
    código 2 – tem que setar o combobox com a palavra ‘CANCELADO’ tipo um IndexOfObject (ComboBox1.Items.IndexOfObject(TObject(2));)


  4. Fala Gabriel! Obrigado pela visita, que bom que gostou!!

    Para setar o combobox basta fazer da seguinte forma:

    combobox.ItemIndex:=combobox.Items.IndexOfObject(TObject(2));

    Abraços!

  5. Rodolfo

    Excelente exemplo muito útil, valeu!

  6. Alysson

    Oi Felipe
    Sou Novo No Delphi.
    Estou Trabalhando Com Json.
    Queria Lista Todos Os Estados Brasileiros (UF)

    // var do combobox
    var

    retCliente : TFDJSONDataSets;
    itemadd : TComboBox;
    ClientRest : TServerMethods1Client;

    // Tratando ComboBox
    begin
    // Tratando O Json
    ClientRest := TServerMethods1Client.Create(ClientModule1.DSRestConnection1);
    retCliente := ClientRest.ListaEstado;

    Assert(TFDJSONDataSetsReader.GetListCount(retCliente)= 1);
    FDMemTable1.Close;
    FDMemTable1.AppendData(TFDJSONDataSetsReader.GetListValue(retCliente,0));
    FDMemTable1.First;

    // Fim Do Tratamento Do Json

    boxEstado.Items.Clear;
    while not FDMemTable1.Eof do
    begin
    itemadd := boxEstado.Items.Add(FDMemTable1.FieldByName(‘UF’).AsString);

    FDMemTable1.Next;
    itemadd := integer(boxEstado.Items[boxEstado.ItemIndex]);
    end;

    end;

    Nao Consigo Compilar Por Que Diz Que A Minha Variavel “itemadd” Tem Type Int
    Pode Me Ajudar?
    Tentei Varias Formas E Nao Estou Conseguindo : (


  7. Bom dia Alysson, experimenta colocar:

    boxEstado.Items.Add(FDMemTable1.FieldByName(‘UF’).AsString)

    E nesse caso nem precisa da variável “itemadd”.

    Abraços!

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *