引言: 在MouseMoving的事件中，可以獲得滑鼠的座標 在Form的MouseMoving事件中獲得的座標是根設計階段的座標一樣的

/* 以下的寫法取得對應 Form 的座標 */
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
    Caption = IntToStr(X)   " : "   IntToStr(Y);
}    /* 以下的寫法取得對應整個螢幕的座標 */
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
    TPoint P;
    GetCursorPos(&P);
    Caption = IntToStr(P.x)   " : "   IntToStr(P.y);
}

引言: Form 就有 OnMouseMove Event，點兩下填入程式碼：

void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
    Caption = IntToStr(X)   " : "   IntToStr(Y);
}

引言: Form 就有 OnMouseMove Event，點兩下填入程式碼：

/* 以下的寫法取得對應 Form 的座標 */
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
    Caption = IntToStr(X)   " : "   IntToStr(Y);
}    /* 以下的寫法取得對應整個螢幕的座標 */
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
    TPoint P;
    GetCursorPos(&P);
    Caption = IntToStr(P.x)   " : "   IntToStr(P.y);
    這算多學到的知識>W<
}

發表人 - allenchan 於 2004/12/09 23:42:04

void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
    TPoint P;
    GetCursorPos(&P);
    P = ScreenToClient(P);
    Caption = IntToStr(P.x)   " : "   IntToStr(P.y);
}

引言: 改成下面這樣，然後把 Form 上面元件的 OnMouseMove 都選到 FormMouseMove。

void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
    TPoint P;
    GetCursorPos(&P);
    P = ScreenToClient(P);
    Caption = IntToStr(P.x)   " : "   IntToStr(P.y);
}

發表人 - allenchan 於 2004/12/10 00:37:56

  pt  tPoint

  pt  MouseCursorPos 
   now have SCREEN position
  Label1Caption   (.)  (.);:=();//.:='X = 'IntToStrptx', Y = 'IntToStrpty
;