請問ComboBox可以自動搜索排序,比如輸入"白"字后所有的白字開頭的項目會變為當前光標處讓選﹐而在DBGrid中比如 DBGrid.Columns[1].ButtonStyle:=cbsAuto; DBGrid.Columns[1].PickList.Clear; if Query.RecordCount>0 then begin while not Query.Eof do begin DBGrid.Columns[1].PickList.Add(Query.fieldByName('GoodsName').asstring); Query.Next; end; end; 這樣做出來就在DBGrid中可以有下拉框去選或輸入﹐可如何就象ComboBox一樣輸入"白"字后所有的白字開頭的項目會變為當前光標處讓選呢?

procedure TForm1.DBComboBox11KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  s:string;
  i:Integer;
begin
  try
    s:=Copy(DBComboBox1.Text,1,2);
    if Length(s)<>2 then exit;
  except
    exit;
  end;
  for i:=0 to DBComboBox1.Items.Count-1 do
  begin
    if Pos(s,DBComboBox1.Items.Strings[i])>0 then
    begin
      DBComboBox1.Text:=DBComboBox1.Items.Strings[i];
      break;
    end;
  end;
end;

[quote]

procedure TForm1.DBComboBox11KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  s:string;
  i:Integer;
begin
  try
    s:=Copy(DBComboBox1.Text,1,2);
    if Length(s)<>2 then exit;
  except
    exit;
  end;
  for i:=0 to DBComboBox1.Items.Count-1 do
  begin
    if Pos(s,DBComboBox1.Items.Strings[i])>0 then
    begin
      DBComboBox1.Text:=DBComboBox1.Items.Strings[i];
      break;
    end;
  end;
end;

谢谢，不过我不明白你所说的跟我想要的不相符。

因為我是沒有用DBComboBox﹐否則會象我所說的一樣﹐而現是直接用DBGrid.Columns[1].PickList來顯示下拉框的。

在 Grid 中的 PickList 操作在 VCL 是在 TInplaceEditList 這個 Class 中的 我剛才看過一下沒有 autocomplete 的功能，而且 InplaceEditList 是 InplaceEdit 的後代又沒有 Public 出來，表操作他們會比較麻煩。

您講的PickList下拉, 實際上是在DBGrid內部運作, 實作在TDBGridInplaceEdit.DropDown; 要更動它是比較困難 GridInplaceEdit沒有公開出來

謝謝各位﹐如果用 PickList下拉,則沒有辦法做的到嗎﹖