我想在dbgrid放置一个下拉框组件，如何实现

Question

我想在dbgrid放置一个下拉框组件，如何实现，如果直接在picklist中设置，无法捕捉到不移开活动行值改变的状态。

Answer 1

dbgrid不好用，建议直接用
dbGridEh，这个好用，也有好多人在用的

Answer 2

我在国外http://delphi.about.com上看到过例子,可以看看这里:http://delphi.about.com/od/usedbvcl/l/aa081903a.htm

Answer 3

dbGridEh是一个大套件里的吧，总是不想使用大部头的第三方控件组

Answer 4

那些例子都是需要写
procedure TForm1.DBGrid1DrawColumnCell
  (Sender: TObject; 
   const Rect: TRect; 
   DataCol: Integer; 
   Column: TColumn; 
   State: TGridDrawState);
begin
  if (gdFocused in State) then
  begin
    if (Column.Field.FieldName = 'DateAdded') then
    with DateTimePicker do 
    begin
      Left := Rect.Left + DBGrid1.Left + 1;
      Top := Rect.Top + DBGrid1.Top + 1;
      Width := Rect.Right - Rect.Left + 2;
      Width := Rect.Right - Rect.Left + 2;
      Height := Rect.Bottom - Rect.Top + 2;      Visible := True;
    end;
  end
end;procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
  if DBGrid1.SelectedField.FieldName = 'DateAdded' then 
    DateTimePicker.Visible := False
end;procedure TForm1.DBGrid1KeyPress
(Sender: TObject; var Key: Char);
begin
  if (key = Chr(9)) then Exit;  if (DBGrid1.SelectedField.FieldName = 'DateAdded') then
  begin
    DateTimePicker.SetFocus;
    SendMessage(DateTimePicker.Handle, WM_Char, word(Key), 0);
  end
end;然后是具体的结果填入
procedure TForm1.DateTimePickerChange(Sender: TObject);
begin
  if DBGrid1.DataSource.State in [dsEdit, dsInsert] then
    ADOTable1DateAdded.Value := DateTimePicker.DateTime;
end;procedure TForm1.DateTimePickerDropDown(Sender: TObject);
begin
  DBGrid1.DataSource.Edit;
end;如果dbgrid直接支持就好了，记得已经很接近的了。。
或者，把上面的很繁琐的做法集成一下，也好啊