C++ Builder BCB 中如何实现DBGRID用鼠标拖动多选?

[dfpgb]

C++ Builder BCB 中如何实现DBGrid用鼠标拖动多选?
就是说用鼠标划个框,选中一部分记录,
能在已经选中的一部分记录中再用鼠标画个框把框中的记录再反选就更好了,
不然按住shift或者ctrl可以选择多个段落也可以.

给个思路就好.


目前我正在试验OnColEnter事件,可是很奇怪,DBGrid的第一列不会触发这个事件,而其它的列就可以,怎么回事情呢?

[fairchild811]

然后和windows一样，shift，ctrl就可以了

[wg961423]

记录鼠标按下去和松开时候记录所在单元格的座标，并把经过的记录选中，应该可以这么做的。

[fairchild811]

[Quote=引用 10 楼 dfpgb 的回复:]
zl198183兄谢了,可以实现,不过界面会晃动(应该是GotoBookmark造成的),速度也有一点慢(应该是移动当前数据指针造成的),看看有没有更好的方法呢?


不过根据这个方法应该可以找到更好的写法,试验中
[/Quote]

晃动是什么意思，刷新吗？form的doublebuffered = true；

[dfpgb]

dgMultiSelect这个属性只可以用ctrl一条一条一条一条的选择

[yangangs]

[Quote=引用 7 楼 dfpgb 的回复:]
dgMultiSelect这个属性只可以用ctrl一条一条一条一条的选择
[/Quote]
那按住shife也不行吗？

[zl198183]

可以使用BookMark

void __fastcall Form::DBGridMouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y,TADOQuery *ADOQuery,TDBGrid *DBGrid)
{
    if( Button == mbLeft )
    {

       if(blSelect == false)
       {
          BookMark = ADOQuery->GetBookmark();
          OldNo =   ADOQuery->RecNo;
          blSelect = true;
          return;
       }
       else
       {
                if(Shift.Contains(ssShift))
                {
                        CurrNo = ADOQuery->RecNo;
                        ADOQuery->DisableControls();
                        ADOQuery->GotoBookmark(BookMark);
                        DBGrid->SelectedRows->CurrentRowSelected=true;
                        if(CurrNo > OldNo)
                        {
                                while(CurrNo > ADOQuery->RecNo)
                                {
                                        DBGrid->SelectedRows->CurrentRowSelected=true;
                                        ADOQuery->Next();
                                }
                        }
                        else
                        {
                                while(CurrNo < ADOQuery->RecNo)
                                {
                                        DBGrid->SelectedRows->CurrentRowSelected=true;
                                        ADOQuery->Prior();
                                }

                        }

                ADOQuery->EnableControls();
                ADOQuery->FreeBookmark(BookMark) ;
                blSelect= false;
                CurrNo = 0;
                OldNo  = 0;
                }//end of if
                else
                {
                        BookMark = ADOQuery->GetBookmark();
                        OldNo    = ADOQuery->RecNo;
                        blSelect = true;

                }
      }

    }
}

[dfpgb]

zl198183兄谢了,可以实现,不过界面会晃动(应该是GotoBookmark造成的),速度也有一点慢(应该是移动当前数据指针造成的),看看有没有更好的方法呢?


不过根据这个方法应该可以找到更好的写法,试验中

[dfpgb]

[Quote=引用 12 楼 luoshupeng 的回复:]
引用 4 楼 fairchild811 的回复:
Object Inspector里面点开options选项，里面的dgMultiSelect置为true

或

DBGrid1->Options = DBGrid1->Options < < dgMultiSelect;

！！！！！！！！！！！！
[/Quote]

这样不行....这样只能按住CTRL一条一条一条一条一条一条一条一条一条一条一条一条一条一条一条一条一条的选....不能区域选......更不能多区域选.......

[luoshupeng]

[Quote=引用 4 楼 fairchild811 的回复:]
Object Inspector里面点开options选项，里面的dgMultiSelect置为true

或

DBGrid1->Options = DBGrid1->Options < < dgMultiSelect;
[/Quote]！！！！！！！！！！！！

[dfpgb]

发现TStringGrid可以实现这种功能,可是怎么让TDBGrid也可以呢?

[wg961423]

唉，我也要用到这个功能了，不过我只是要把选中的单元格的内容放到剪贴板上就行了。

我的方法：
1、在DBGrid的MouseMove里记录右键按下起始位置（我的左键已经有其他用处了），这个时候，DataSet也自动会到这一行；
2、在DBGrid的MouseUP里记录右键松开位置，并弹出POP菜单(选择复制所选单元格还是所选整行)；
3、把DataSet复制一份到新的DataSet1，并把DataSet1的当前位置设定与DataSet一样；
4、根据记录的起始和终止，从DataSet1中把要的数据一一取出来，并放入剪贴板。

[dfpgb]

[Quote=引用 15 楼 wg961423 的回复:]
唉，我也要用到这个功能了，不过我只是要把选中的单元格的内容放到剪贴板上就行了。

我的方法：
1、在DBGrid的MouseMove里记录右键按下起始位置（我的左键已经有其他用处了），这个时候，DataSet也自动会到这一行；
2、在DBGrid的MouseUP里记录右键松开位置，并弹出POP菜单(选择复制所选单元格还是所选整行)；
3、把DataSet复制一份到新的DataSet1，并把DataSet1的当前位置设定与DataSet一样；
4、根据记录的起始和终…
[/Quote]
唉~我现在都已经要放弃准备用第三方控件了....ehlib的dbgrideh好像很强.....

不过你根据鼠标的点怎么确定选择的记录的呢?
我一开始也想过,可是我没发现怎么获得dbgrid的行高,汗...!

[wg961423]

行高？行号？

TGridCoord p=DBG->MouseCoord(X,Y);
p.X 列号
p.Y 行号

可以参考我之前的问题帖子：http://topic.csdn.net/u/20090603/13/825f172b-d2e1-4276-821a-78931d3d154a.html

[wg961423]

对了，有没有人知道怎么画线框啊？就像Windows的桌面的空白处，按下鼠标左键或右键不松，移动鼠标后出现的那种框？

[wg961423]

晕，找到一个画框的方法。
TPoint P = Mouse->CursorPos;
if(NEWX==-1||NEWY==-1)
{
NEWX=p.X;
NEWY=p.Y;
MyX=P.x;
MyY=P.y;
}
HDC hDC = GetDC(0);
Canvas->Handle = hDC;
Canvas->Brush->Style = bsClear;
Canvas->Pen->Color = clBlue;
DBG->Repaint();
Canvas->Rectangle(MyX,MyY,P.x,P.y);

[mypop2006]

我来学习的 不知道什么串口控件好用呢？

[dfpgb]

[Quote=引用 19 楼 wg961423 的回复:]
行高？行号？

TGridCoord p=DBG->MouseCoord(X,Y);
p.X 列号
p.Y 行号

可以参考我之前的问题帖子：http://topic.csdn.net/u/20090603/13/825f172b-d2e1-4276-821a-78931d3d154a.html
[/Quote]
我是问行高拉,因为我以为是要自己计算现在鼠标在第几行拉,哈哈,不知道有这么个函数啊,谢谢你哦!

[Quote=引用 20 楼 mypop2006 的回复:]
我来学习的 不知道什么串口控件好用呢？
[/Quote]
MSCOMM.....

[dfpgb]

结帖~?

[yefu2000]

问题解决了，你就结贴呗。。。

[hansyswin]

ding