//---------------------------------------------------------------------------    #include 
#pragma hdrstop    #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TWndMethod StringGrid_WindowProc;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  StringGrid_WindowProc=StringGrid1->WindowProc;      StringGrid1->WindowProc=MyWindowProc;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MyWindowProc(TMessage &Message)
{            if (Message.Msg==WM_MOUSEMOVE)     //WM_NCLBUTTONDOWN
        {
          return;
        }            // 呼叫-原始訊息處理程序
        StringGrid_WindowProc(Message);
}
//---------------------------------------------------------------------------    

//---------------------------------------------------------------------------    #include 
#pragma hdrstop    #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TWndMethod StringGrid_WindowProc;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  StringGrid_WindowProc=StringGrid1->WindowProc;      StringGrid1->WindowProc=MyWindowProc;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MyWindowProc(TMessage &Message)
{            if (Message.Msg==WM_NCHITTEST)     //WM_LBUTTONDOWN,WM_MOUSEMOVE,WM_NCLBUTTONDOWN
        {
          //ShowMessage(Message.WParam);
          return;
        }            // 呼叫-原始訊息處理程序
        StringGrid_WindowProc(Message);    }
//---------------------------------------------------------------------------
void __fastcall TForm1::StringGrid1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  if (Key>=37 && Key<=40) Key=0;
}
//---------------------------------------------------------------------------    

引言: 滑鼠移動的 cursor 無法以事件關閉, 雖然可以用其它偷吃步方法,但無法抓到滑鼠移出 Grid 時再打開滑鼠 cursor 的時機,更不想將打開 cursor 的程式碼寫在別的 VCL 中(如主Form)

type
  TSC = Class(TStringGrid)
  private
    procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
  end;    procedure TSC.CMMouseEnter(var Msg: TMessage);
begin
  ShowCursor(false);
end;    procedure TSC.CMMouseLeave(var Msg: TMessage);
begin
  ShowCursor(true);
end;    procedure TForm1.FormCreate(Sender: TObject);
begin
  SC := TSC.Create(Self);
  SC.Parent := Self;
end;

引言: 用 ShowCursor(false); 可以隱藏游標，但是要判斷何時隱藏何時顯示，想要光在 StringGrid 處理可能有些困難，小弟以前遇到類似的問題都在他的父物件用 ChildWindowFormPoint 來取得目前滑鼠所在的子物件資訊然後做相關的處理，希望對您有些幫助 ... < face="Verdana, Arial, Helvetica"> 謝謝 China Join 長官的回應 , 但我前面說過 ....不想將打開 cursor 的程式碼寫在別的 VCL 中(如主Form)... 我想將無滑鼠控制的動作模組化,甚至獨立寫成另一個元件 (TNoMouseStringGrid) , 所以希望所有控制碼都在 StringGrid 中解決掉

//---------------------------------------------------------------------------    #include 
#pragma hdrstop    #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TWndMethod StringGrid_WindowProc;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  StringGrid_WindowProc=StringGrid1->WindowProc;      StringGrid1->WindowProc=MyWindowProc;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MyWindowProc(TMessage &Message)
{            //Memo1->Lines->Add(IntToStr(Message.Msg));            if (Message.Msg==WM_NCHITTEST)     //WM_LBUTTONDOWN,WM_MOUSEMOVE,WM_NCLBUTTONDOWN
        {
          //ShowMessage(Message.LParam);
          //if (Message.WParam== SC_CLOSE)
          //ShowMessage(Message.WParam);
          return;
        }            /*
        //WM_KEYDOWN 在 Grid 瀏覽模式可攔上下鍵,但在編輯模式中無法攔上下鍵
        if (Message.Msg==WM_KEYDOWN)        //WM_CHAR(可視字元) ,WM_KEYDOWN(不可視字元)
        {
          return;
        }
        */            if (Message.Msg==CM_MOUSELEAVE)  //滑鼠離開本元件時,打開系統游標
        {
          ShowCursor(true);
        }            if (Message.Msg==CM_MOUSEENTER)  //滑鼠進入本元件時,關閉系統游標
        {
          ShowCursor(false);
        }
                    // 呼叫-原始訊息處理程序
        StringGrid_WindowProc(Message);    }
//---------------------------------------------------------------------------
void __fastcall TForm1::StringGrid1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  if (Key>=37 && Key<=40) Key=0;  //攔掉上下左右鍵
}
//---------------------------------------------------------------------------