請教各位大大： 如何將Form1上的不同元件，用迴圈(for/while)都賦予Form1的OnMouseMove事件？< > >< > 老實耕田的原始碼如下： < class="code"> StaticText1->OnMouseMove = FormMouseMove; ToolBar1->OnMouseMove = FormMouseMove; Button1->OnMouseMove = FormMouseMove; Button2->OnMouseMove = FormMouseMove; 迴圈代勞的更改碼如下↓

for(int i=0; i<Form1->ComponentCount; i  )
  {
  //該如何做？
  }

引言: 請教各位大大： 如何將Form1上的不同元件，用迴圈(for/while)都賦予Form1的OnMouseMove事件？< > >< > 老實耕田的原始碼如下： < class="code"> StaticText1->OnMouseMove = FormMouseMove; ToolBar1->OnMouseMove = FormMouseMove; Button1->OnMouseMove = FormMouseMove; Button2->OnMouseMove = FormMouseMove; 迴圈代勞的更改碼如下↓

for(int i=0; i<Form1->ComponentCount; i  )
  {
  //該如何做？
  }

Cooky Kid 你好: 請參考以下的做法 < class="code"> long lI=0; //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { Application->AppMessage; } //--------------------------------------------------------------------------- void __fastcall TForm1::AppMessage(tagMSG &Msg, bool &Handled) { if(Msg.message==WM_MOUSEMOVE) { Memo1->Lines->Add("Mouse Move - " IntToStr(lI )); } } 備註: 要先在 Unit1.h 中宣告

RaynorPao 大大, 多謝..多謝...... 攔截 > 因為前天網上看到了『移動滑鼠，取得 > 改過的碼如下： < class="code"> //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { //設定Form1型態 FormStyle = fsNormal; // Application->AppMessage; } //--------------------------------------------------------------------------- void __fastcall TForm1::FormShow(TObject *Sender) { //動態創造5個彩色背景的視窗，以供測試 for(int i=0;i<5;i ) { TForm * TForm(Form1); form->Parent = Form1; form->FormStyle = fsNormal; form->Name = "form" AnsiString(i 1); form->Width = 150; form->Height = 40; form->Top = ToolBar1->Height 40*i; form->Left = 40*i; form->Color = (TColor)RGB(255-i*50,i*50,255); form->Show(); } } //--------------------------------------------------------------------------- void __fastcall TForm1::FormDestroy(TObject *Sender) { char name[6]; //刪除程式開始時創造的5個彩色視窗 for(int num=0;num for(int i=0;iName == name) { delete (TForm *)Components[i]; } } } //--------------------------------------------------------------------------- void __fastcall TForm1::AppMessage(tagMSG &Msg, bool &Handled) { if(Msg.message==WM_MOUSEMOVE) { //取得滑鼠位置 POINT pd; GetCursorPos(&pd); pd = ScreenToClient(pd); char name[256], text[256]; //由滑鼠位置而取得Form1上物件handle HWND h = ::ChildWindowFromPoint(Handle, pd); //由物件handle取得物件相關資訊 ::GetClassName(h,name,256); ::GetWindowText(h,text,256); //即時顯示物件資訊 StaticText1->Caption = "類別：" AnsiString(name) ",內含文字：" AnsiString(text); } } //---------------------------------------------------------------------------

引言: RaynorPao 大大, 多謝..多謝...... 攔截 > 因為前天網上看到了『移動滑鼠，取得 > < face="Verdana, Arial, Helvetica"> Cooky Kid 你好: 不客氣< >~~另外~~也很感謝你的熱心分享喔< > -- Enjoy Researching & Developing --