非常抱歉 剛開始使用BCB 想請問 在控制mouse移動時常常需要計算form上各原件的座標差值 onMouseMove所傳出的xy是各原件上的個別座標 不知道是不是有其他的方法 可以跨原件 隨時可以即時的得到mouse在整個form上的絕對座標 且不會隨著mouse在哪個元件上而不同? 感謝

TControl has a method called ClientToScreen and you may be interested in the API GetCursorPos.

這裡有另一個方法，我也覺的滿好用的， 用Label2 和 Label3 來顯示 (X,Y) 在Form的MouseMove加入下列程式碼， 並在你所用到元件的OnMouseMove，全指到這個FormMouseMove上， 就可以了 < class="code"> void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { if (((TControl *)Sender)->Name == "Form1") { Label2->Caption = IntToStr(X); Label3->Caption = IntToStr(Y); } else { Label2->Caption = IntToStr(X ((TControl *)Sender)->Left); Label3->Caption = IntToStr(Y ((TControl *)Sender)->Top); } } 國泰平安

非常感謝各位的指導 所以舉個例子 如果我在form上有一個GroupBox GroupBox中又包含StringGrid 則mouse座標控制如下囉 非常感謝!!!!!    

void __fastcall TForm1::GroupBox1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
    TControl * pObj = dynamic_cast(Sender);
    FormMouseMove(Sender, Shift, X   pObj->Left, Y   pObj->Top );
}    void __fastcall TForm1::HexCodeGrid1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
    TControl * pObj = dynamic_cast(Sender)->Parent;
    GroupBox1MouseMove(Sender, Shift,X    pObj->Left, Y    pObj->Top  );
}    

如果有任何更好的做法 煩請多多交流喔 謝謝