dbgrid控件加入其它控件的方法(急----------) ( 积分: 10 )

我是想在表中加入一个dbcombobox控件 来显示性别的 代码是这样的 （代码大富翁下的）以前是有用的 不知现在不行了 属性都设好了 我用的是 delphi6
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if (gdFocused in State) then
begin
if (Field.FieldName = DBComboBox1.DataField ) then
begin
DBComboBox1.Left := Rect.Left + DBGrid1.Left;
DBComboBox1.Top := Rect.Top + DBGrid1.top;
DBComboBox1.Width := Rect.Right - Rect.Left;
DBComboBox1.Height := Rect.Bottom - Rect.Top;
DBComboBox1.Visible := True;
end;
end;

你这是干啥？用DBGrid自带的picklist不就可以了吗？

如果用到DBGrid1DrawDataCell，你不能对GRID进行columns Editor设置，否则，这个事件
不触发。如果你想显示你定义的数据中的几个数据，并且用中文名显示，要对相应的TABLE
或Query进行Fields Editor

谢了 可以了

这样是可以了 现在是我想用columns Editor呢 因为这样的话必须active设为true才行呀
我是想达到 表中的字段名要显示的 但表的内容不想显示 有更好的办法吗

用columns Editor就不会有DrawDataCell事件，此事古难全，只有找找其他它控件，
或自己写个控件。
再就是变通方法，用一个columns Editor出来的GRID来骗人，等到active设为true
后，显示出的是DrawDataCell的Grid。