如何在DBGrid中利用鼠标取得单元格的值

如上3图所示，右键菜单里的选项随着鼠标指向的单元格数据不同而不同。如何实现呢？问题的关键在于如何取得鼠标指向的单元格的值。


查BCB帮助，看到DBGrid中有一方法：

TCustomGrid::MouseCoord
TCustomGrid See also
————————————————————————
Returns the row and column indexes of the cell that contains a point specified in screen coordinates.

struct TGridCoord

{
int X;
int Y;
};

TGridCoord __fastcall MouseCoord(int X, int Y);

Description

Call MouseCoord to locate the column and row of the cell which contains a given screen coordinate. Usually, MouseCoord is used to locate the cell that is under the mouse.

最后一句的大致意思是可以通过调用DBGrid的MouseCoord方法来取得单元格的行和列，但必须要知道单元格在屏幕中的坐标。通常地，MouseCoord事件被用取得鼠标指向的单元格的行和列。

只要知道了单元格的行和列就可以通过DBGrid->Columns->Items[]来取得单元格所属的字段的名称，而又可利用字段名来确定单元格中的值：Query->FieldByName(fieldname)->AsString。如何取得单元格在屏幕中的坐标？指向单元格的鼠标坐标就是需要的坐标。如何取得鼠标的坐标？利用DBGrid中的MouseMove事件，它将会传递出鼠标的坐标。一个解决方案生成：

DBGrid的Option:[dgTitles,dgColLines,dgRowLines,dgTabs,dgRowSelect,dgAlwaysShowSelection]
1、定义全局变量:
Add in .h file:
struct TGridCoord gc;

2、利用DBGrid的MouseMove事件获取鼠标坐标(MouseUp事件获取的鼠标坐标有时跟不上鼠标指针)，
void __fastcall TForm1::DBGrid1MouseMove(TObject *Sender,TShiftState Shift, int X, int Y)
{
gc=DBGrid1->MouseCoord(X,Y); //通过MouseCoord将鼠标坐标转换成DBGrid的行和列
}


3、获取单元格值，改变右键菜单的选项：
void __fastcall TForm1::PopupMenu1Popup(TObject *Sender)
{
AnsiString fieldname;
fieldname=DBGrid1->Columns->Items[gc.X]->FieldName;//通过MouseCoord转换来的行进行取值，在鼠标右键点击单元格时，列的值即是数据库指针指向的当前记录
PopupMenu1->Items->Items[1]->Caption="查询 /""+Query1->FieldByName(fieldname)->AsString+"/"";
}