🚀 go-pugleaf

Hi Mattias,

"Mattias Carleson" <mattias.carleson@home.se> wrote:
>
>Hi!
>I want to trap the message generated by pressing a TSpeedButton.
>I�ve been trying it in the Application->OnMessage, and I�ve been trying it by overriding the WndProc method. If Im right it�s the
>WM_COMMAND that should be trapped, but it doesnt seem to work.
>This is what I try to do:
>
>void __fastcall TMainForm::AppMessage(tagMSG &Msg, bool &Handled)
>{
>   if(Msg.message == WM_COMMAND)
>   {
>      if(HIWORD(Msg.wParam=BN_CLICKED))
>      {
>         ShowMessage("Button event catched!");
>      }
>}
>
>My second question is how to know which button object caused
>the message? I know LOWORD(Msg.wParam) should contain the
>identifier and that Msg.lParam contains the handle, but the
>TSpeedButton class and its parents doesnt seem to include any
>varible or function returning any of it.
>
>How should this be done? Thanks for your time.
>/Mattias

I am not sure that understand you, try follow code, 
may be it helps.

void __fastcall TForm1::AppMessage(tagMSG &Msg, bool &Handled)
{
   if(Msg.message == WM_LBUTTONDOWN)
   {
         TPoint click=Form1->ScreenToClient(Msg.pt);
         TControl* cntrl=Form1->ControlAtPos(click,False,False);
         if(!cntrl)return;
         if(SpeedButton1 == dynamic_cast<TSpeedButton*>(cntrl))ShowMessage("Button event catched!");
   }
}

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Application->OnMessage = AppMessage;
}

I hope it explains also how detect what button pressed.
Vladimir.