我想在DBGrid中的某一列用下拉菜单来显示,就像combobox一样。应该怎么做呢?
需要设置什么东西???急啊!!!

解决方案 »

  1.   

    双击DBGRID,选中某个字段,设置该字段的PICKLIST属性就可以了
      

  2.   

    我在picklist中写了内容但是没有显示出来,等于没有写一样,都是空白的.
      

  3.   

    找一个三方的就可以摘定了.如:DBGRIDVIEW等
      

  4.   

    我们就在picklist写,完全可以。
    DBGRID是否允许修改
      

  5.   

    在Delphi的DBGrid中插入其他可视组件   Delphi提供了功能强大的 DBGrid组件,以方便进行数据库应用程序设计。但是如果我们仅仅利用DBGrid组件,每一个获得焦点(Grid)只是一个简单的文本编辑框,不方便用户输入数据。Delphi也提供了一些其他数据组件来方便用户输入,比如DBComboBox,DBCheckBox等组件,但这些组件却没有DBGrid功能强大。Delphi能不能象Visual Foxpro那样让DBGrid中获得焦点网格可以是其它可视数据组件以方便用户呢?其实我们可以通过在DBGrid中插入其他可视组件来实现这一点。    Delphi对DBGrid处理的内部机制,就是在网格上浮动一个组件——DBEdit组件。你输入数据的网格其实是浮动DBEdit组件,其他未获得焦点地方不过是图像罢了。所以,在DBGrid中插入其他可视组件就是在网格上浮动一个可视组件。因此任何组件,包括从简单的DbCheckBox到复杂的对话框,都可以在DBGrid中插入。下面就是一个如何在DBGrid中插入DBComboBox组件的步骤,采用同样的办法可以插入其他组件。  1、在Delphi 4.0中新建一个项目。  2、分别拖动的Data Access组件板上DataSource、Table,Data Controls组件板上DBGrid,DBComboBox四个组件到Form1上。  3、设置各个组件的属性如下:rcf1对象 属性 设定植
    Form1 Caption '在DBGrid中插入SpinEdit组件示例'
    DataSource1 DataSet Table1
    Table1 DatabaseName DBDEMOS
    TableName 'teacher.DBF'
    Active True
    DBGrid1 DataSource DataSource1
    DBComboBox1 DataField SEX
    DataSource DataSource1
    Visible False
    Strings Items. '男'| '女'注意:我在这里用了Teacher.dbf,那是反映教职工的性别,只能是“男”或者是“女”。  4、DrawDataCell事件是绘制单元格,当获得焦点网格所对应的字段与组合框所对应的字段一致时,移动组合框到获得焦点的网格上,并且使组合框可视,从而达到在DBGrid指定列上显示DBComboBox的功能。设置DBGrid1的OnDrawDataCell事件如下: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;
    end;  5、DBGrid指定单元格未获得焦点时不显示DBComboBox,设置DBGrid1的OnColExit事件如下:
    procedure TForm1.DBGrid1ColExit(Sender: TObject);
    begin
      If DBGrid1.SelectedField.FieldName = DBComboBox1.DataField then
        begin
          DBComboBox1.Visible := false;
        end;
    end;  6、当DBGrid指定列获得焦点时DrawDataCell事件只是绘制单元格,并显示DBComboBox,但是DBComboBox并没有获得焦点,数据的输入还是在单元格上进行。在DBGrid1的KeyPress事件中调用SendMessage这个 Windows API函数将数据输入传输到DBComboBox上,从而达到在DBComboBox上进行数据输入。因此还要设置KeyPress事件如下:procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
    begin
      if (key < > chr(9)) then
      begin
        if (DBGrid1.SelectedField.FieldName =DBComboBox1.DataField) then
        begin
          DBComboBox1.SetFocus;
          SendMessage(DBComboBox1.Handle,WM_Char,word(Key),0);
        end;
      end;
    end;    程序在中文Windows 98,Delphi 4.015 下调试通过。希望本文能使你可以更加方便快捷的开发数据库应用程序。
      

  6.   

    设置picklist的属性就可以了,简单
      

  7.   

    设置picklist的属性后,再运行时单击该列,在其右边就会出现后面我就不说了!