Fórum Mostrar descrição do produto a medida que digita #328388

var
texto:string

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
combobox1.Visible := (dbgrid1.SelectedField = CmpoDoSeuDataSet);
 if combobox1.Visible Then
  if gdfocused in state then
   begin
    combobox1.SetFocus;
    combobox1.SetBounds(rect.Left+19,
                        rect.Top+17,
                        rect.Right - Rect.Left,
                        rect.Bottom - Rect.Top);
    end;
end;

if combobox1.Text = ´´ then
begin
texto:=Texto+Key;
query1.close;
query1.sql.clear;
query1.sql.add(´select Descricao_Produto from produtos´);
query1.SQL.Add(´Where Upper(descricao_produto) Like :Descricao´);
query1.ParamByName(´Descricao´).AsString:=AnsiUpperCase(texto)+´¬´;
query1.Prepare;
query1.open;
combobox1.Clear;
Query1.First;
while not query1.Eof do
 begin
   combobox1.Items.Add(Query1Descricao_Produto.AsString);
   Query1.Next;
 end;
ComboBox1.DroppedDown := True;
end;
end;

procedure TForm1.SeuDataSetBeforeScroll(DataSet: TDataSet);
begin
combobox1.Clear;
end;

procedure TForm1.SeuDataSetAfterScroll(DataSet: TDataSet);
begin
 combobox1.Items.Add(cds1Nome_Cliente.AsString);
 combobox1.ItemIndex:=0;
end;

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
SeuDataSet.Edit;
SeuDataSetCampo.AsString:=combobox1.Items.Strings[combobox1.ItemIndex];
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if combobox1.Text = ´´ Then
 texto:=´´;
end;