怎样对DBGrid的每个单元格响应事件？(在线等候)

[myan18]

怎样对DBGrid的每个单元格响应事件？请以第一和第二个单元格为例说明，谢谢各位！我一定给分。

[myan18]

先谢谢keiy() ：
　　如果是对DBGrid的每个单元格双积响应不同的事件，该怎么办呢？

[myan18]

我顶。

[柯本]

原理一样,先在
int dbx,dby;
void __fastcall TForm1::DBGrid1MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
dbx=X;
dby=Y;
}
中保存当前mouse的X,Y
void __fastcall TForm1::DBGrid1DblClick(TObject *Sender)
{
...
上面一贴的程序,将X,Y改成dbx,dby
}

[myan18]

高手们救救我吧！

[myan18]

我顶！

[柯本]

void __fastcall TForm1::DBGrid1MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
TGridCoord m= DBGrid1->MouseCoord(X,Y);
if (m.X==1 && m.Y==1)
{
ShowMessage("11");
// 你的事件1
}
else
if (m.X==1 && m.Y==2)
{
ShowMessage("12");
// 你的事件2
}


}
//---------------------------------------------------------------------------

[myan18]

那请问哪位高手讲讲TField::OnSetText和TField::OnGetText的用法?先谢了！！

[柯本]

看看HELP，不过我用TField::OnSetText多些
void __fastcall TForm1::Table1ADDRESS_1GetText(TField *Sender,
AnsiString &Text, bool DisplayText)
{
if (Text=="1")
Text="一";

}

[柯本]

写错了：我用TField::OnGetText多些

[zjqyb]

void __fastcall TForm1::DBGrid1DblClick(TObject *Sender)
{
TPoint rr=DBGrid1->ScreenToClient(Mouse->CursorPos);
TGridCoord xy=DBGrid1->MouseCoord(rr.x,rr.y);
if (xy.X==1 && xy.Y==1)
ShowMessage("第一行第一列");
}