[Risotto] mostrare le righe di lista di una combobox subito dopo il caricamento

[petrusic]

In una Combobox, dopo la digitazione di alcune lettere e la successiva pressione di un tasto come |Freccia giù| o |Pagina avanti|, valorizzo la relativa lista con le rispondenze trovate in una una tabella di DB.
Alla fine del caricamento, dentro l'evento OnChange, ripristino nella combobox.text la mia digitazione.
A questo punto vorrei mostrare sotto la combobox.text la lista con tutte le sue righe caricate, per permettere la successiva selezione manuale della riga da copiare nella combobox.text.

Purtroppo non sono stato bravo a trovare il metodo per ottenere automaticamente quello che voglio. Infatti vorrei sostituire il compito all'utente (Click sul pulsantino posto all'estrema destra della Combobox) con una riga di codice.
il mio codice è:

Codice: [Seleziona]

procedure TForm6.CBstriXKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  swDoppio, swOpenErro: Boolean;

  i, n, p: Integer;
  tRec: Integer = 0;

  aaaa, mm, gg: word;

  anno, dataIni, dataFin, descr, giorno, mese, sql: String;

begin
  case Key of
    VK_DOWN, VK_NEXT:     // Tasto |FRECCIA GIU'| , |PAGINA AVANTI|
    begin
      case Length(CBstriX.Text) of
        0:
        begin
          exit
        end
        else begin
          CBstriX.Items.Clear;                                             
. . . 
 striDigit:= CBstriX.Text;
          sql:= 'SELECT DescrMovvgg FROM movimgg WHERE DtCoMovgg >= ' +  dataIni + ' and DtCoMovgg <= ' + dataFin;
          swOpenErro:= OpenDbQuery(sql);
          case swOpenErro of
          False:
            begin
              Form1.ZQuery1.First;
              while not Form1.ZQuery1.EOF do
              begin
                descr:= Form1.ZQuery1.FieldByName('DescrMovvgg').AsString;
                tRec:= tRec + 1;
                p:= Pos(striDigit, Descr);
                if (p > 0) then
                begin
                 n:= CBstriX.Items.Count - 1;
                  for i:= 0 to n do
                  begin
                    if (CBstriX.Items[i] = descr) then
                    begin
                      swDoppio:= True;
                      Break;
                    end;
                  end;
                  if swDoppio then
                  begin
                    swDoppio:= false;
                  end
                  else begin
                    CBstriX.Items.Add(descr);
                  end;
                end;
                Form1.ZQuery1.Next;
              end;
              Form1.ZQuery1.Close;            
. . . 
end;

procedure TForm6.CBstriXChange(Sender: TObject);
begin
  if swFineAddCBstriX then
  begin
    CBstriX.Text:= striDigit;
    CBstriX.SelLength:= 0;
// --->  In questo punto dovrei comandare la vista della lista sottostante la ComboBox <---------------------------------------------------------
    swFineAddCBstriX:= False;
  end;
end;                                                                              

Ho indicato il punto dove inserire il comando per la visualizzazione della lista, dopo l'avvenuto caricamento.

 

[DragoRosso]

Imposta la propietà:

Codice: [Seleziona]

 CBstriX.DroppedDown := true;

Ciò visualizza la lista.

Ciao

[petrusic]

Imposta la propietà:

Codice: [Seleziona]

 CBstriX.DroppedDown := true;

Ciò visualizza la lista.

Ciao

Grazie. Era un gioco da ragazzi.

[bonmario]

[Risotto] mostrare le righe di lista di una combobox subito dopo il caricamento

Ok che quando si risolve un problema si può festeggiare con una bella mangiata, ma scrivere "[Risotto]" invece di "[Risolto]", mi sembra eccessivo     

Ciao, Mario

[xinyiman]

[Risotto] mostrare le righe di lista di una combobox subito dopo il caricamento

Ok che quando si risolve un problema si può festeggiare con una bella mangiata, ma scrivere "[Risotto]" invece di "[Risolto]", mi sembra eccessivo     

Ciao, Mario

Hahahahaha