想用DBGRID代替Combobox的下拉框写个组件，怎么写呢，有没有相关的代码，GZ有分！

Question

e_mail:[email protected]

Answer 1

比较的复杂！你可以看一下Delphi自带的日期的控件是怎么写的！然后就通过Grid来引申一下！我只能这么说，因为我也没做过！希望你好运！

Answer 2

我也是冲分来的。不过，楼主，你用那组控件试一下：dclib,它里面有一组相类同的控件。要的话，打个招呼，我给你发过去！

Answer 3

---- 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;

Answer 4

Delphi对DBGrid处理的内部机制，就是在网格上浮动一个组件——DBEdit组件
!!!!!!!!!!!!

Answer 5

happyzsl(学习) ( ) 
谢谢你的参与，你弄错我的意思了，
我是想用DBgrid 或 ListView 代替ComboBox 的下拉框Listbox 
写个控件。

Answer 6

sorry.用一个edit和stringgrid合作
你可把combobox下拉框的内容先写到stringgrid(没必要用dbgrid吧)
在edit的onenter事件中把stringgrid.visible = true,并调整
stringgrid.top = edit.top+edit.height
stringgrid.left = edit.left
在edit的onexit事件中stringgird.visible = false;可以在edit的onkeydown事件中，
if key = VK_UP(向上) then stringgrid的当前记录变为上一条等,你还可以在edit的onchange事件中模糊查询stringgrid,并定位stringgrid,
下面是combobox中的智能搜索功能，可以参考一下:
// 定义变量
            LastKeyPressed: Word;             procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word; 
              Shift: TShiftState); 
            begin 
              LastKeyPressed := Key;  // 保存上一个你按的键
            end;             procedure TForm1.ComboBox1Change(Sender: TObject); 
            Var 
              ComboText : String; 
              matchindex     : integer; 
            begin 
              ComboText := ComboBox1.Text; 
              // 使用户能删除文本; 
              if (LastKeyPressed = VK_DELETE) OR (LastKeyPressed = 8 )  then 
            begin 
                LastKeyPressed := 0; 
              end 
              else 
              begin 
             // 寻找匹配 
                  matchindex  := sendmessage ( ComboBox1.Handle, CB_FINDSTRING , 
            -1, 
                                         LPARAM(ComboText) )  
                  if matchindex >= 0 then begin 
                    ComboBox1.ItemIndex := matchindex  
                    // 选择文本的其余部分: 
                    sendmessage ( ComboBox1.Handle, CB_SETEDITSEL , 0, 
                                         MAKELPARAM(length(ComboText) , word(-1) 
            )); 
                  end;
                 else
                 begin//删除最后输入的字符，相当于在列表中找不到记录，则不可输入
            keybd_event(VK_BACK,MapVirtualKey(VK_BACK,0),0,0);
            keybd_event(VK_BACK,MapVirtualKey(VK_BACK,0),KEYEVENTF_KEYUP,0);
            Beep();
                 end; 
                end; 
            end;

Answer 7

happyzsl(学习) ( ) 
基本上明白你的意思，
可不可以加上一个button ,那样好看点，
你知道怎么做吗？？？

Answer 8

是说在edit里加button吗?对不起？不清楚