有关StringGrid的问题，望高手帮忙解答

[修石]

void __fastcall TFrmPhaseControl::Button4Click(TObject *Sender)
{
    ShowMessage("点到我了");
}
void __fastcall TFrmPhaseControl::StringGrid1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{

    int XCol,XRow;
    StringGrid1->MouseToCell(X,Y,XCol,XRow);
    if(XRow)
    {
        Button4->Parent=StringGrid1;
        Button4->Left=StringGrid1->CellRect(5,XRow).Left;
        Button4->Top=StringGrid1->CellRect(5,XRow).Top;
        Button4->Width=StringGrid1->ColWidths[5];
        Button4->Height=StringGrid1->RowHeights[1];
        Button4->Visible=true;
        Button4->OnClick=Button4Click;
    }
}

为什么我点Button4的时候没任何反应，望高手指教，在下感激不尽...

[[e-mail]]

定义一个全局变量
int current_row = 0;
void __fastcall TForm1::StringGrid1MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
int XCol,XRow;
StringGrid1->MouseToCell(X,Y,XCol,XRow);

//增加一句
this->current_row = XRow;
}

[修石]

To:Ring_Pt 非常感谢，已经解决了，马上结贴给分

[sxqinge]

Button4->OnClick=Button4Click(NULL);
呵呵不知道能行不？你这种方法我没试过。。。

[修石]

[Quote=引用 1 楼 sxqinge 的回复:]
Button4->OnClick=Button4Click(NULL);
呵呵不知道能行不？你这种方法我没试过。。。
[/Quote]
不行的 编译通不过

[wangcftxz]

Button4->Parent=StringGrid1;
这样好像不行 之前我也试过 不知道为什么
把Parent设置为Form1就可以了

[缘中人]

button4设置bring to front
void __fastcall TForm1::StringGrid1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
   int XCol,XRow;
   StringGrid1->MouseToCell(X,Y,XCol,XRow);
   if(XRow)
   {
       Button4->Left =StringGrid1->Left;
       Button4->Top=StringGrid1->Top;
       Button4->Width=StringGrid1->ColWidths[5];
       Button4->Height=StringGrid1->RowHeights[1];
   }
}

[修石]

[Quote=引用 4 楼 ksrsoft 的回复:]
C/C++ code

button4设置bring to front
void __fastcall TForm1::StringGrid1MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
int XCol,XRow;
StringGrid1->MouseToCell(X,Y,XCol……
[/Quote]
这样写，按钮可以点击了，但是按钮不随鼠标滚动了，能否给出一个完整的解决方案，让按钮点击后能ShowMessage 出所在的行？ 非常感谢

[[e-mail]]

如果parent不是stringgrid
left和top不能按照mousemove里的x y 来计算了


Button4->Left=StringGrid1->CellRect(5,XRow).Left + StringGrid1->Left + 2;
Button4->Top=StringGrid1->CellRect(5,XRow).Top + StringGrid1->Top + 2;

[修石]

[Quote=引用 6 楼 ring_pt 的回复:]
如果parent不是stringgrid
left和top不能按照mousemove里的x y 来计算了


Button4->Left=StringGrid1->CellRect(5,XRow).Left + StringGrid1->Left + 2;
Button4->Top=StringGrid1->CellRect(5,XRow).Top + StringGrid1-……
[/Quote]
可以跟随鼠标移动了，请问如何点按钮后获取所在行号？