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 è:
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.
Imposta la propietà:
CBstriX.DroppedDown := true;
Ciò visualizza la lista.
Ciao