如在的delphi中gride中加入下拉框,等等就象pb那样?

Question

加入column后，选择
设置DBGrid.column[n].PickList属性 

Answer 1

//在窗体上任意放置dbgrid（strgrid）和dbcombobox1（combobox1）
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
if (gdfocused in state) then
  begin
    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;

Answer 2

使用Picklist须注意，要用onGetText和onSetText来存储和显示数据！

Answer 3

>>  使用Picklist须注意，要用onGetText和onSetText来存储和显示数据！ 
楼上的，给个例子看看。

Answer 4

onGetText 是显示onSetText是实际数字