🚀 go-pugleaf

Hi,

"Remy Lebeau \(TeamB\)" <gambit47@yahoo.com> wrote:

>>          if(SpeedButton1 ==
>dynamic_cast<TSpeedButton*>(cntrl))ShowMessage("Button event catched!");
>
>For what is being asked, do not compare the dynamic_cast to a particular
>pointer, just test whether it succeeded at all:
>
>    if(dynamic_cast<TSpeedButton*>(cntrl))
>        ShowMessage("Button event catched!");
>

No, he ask about one or more speedbuttons and about detection 
what button pressed.

>> void __fastcall TForm1::FormCreate(TObject *Sender)
>
>Do not use the OnCreate event in C++.  It is a Delphi remnant that does not
>work correctly in C++ as it can be called before the constructor, which is
>illegal in C++.  Use the constructor instead.
>

Thank you, I didn't know it. But I think that as a TeamB 
member you need (or should) to send it in Quality project.
Just FormCreate Bor. dev. used in VCL components help for BCB5.
See TApplication::OnMessage example. May be the same in 
BCB6 Help.
BCB6 also has a lot errors - one of this incorrect work 
with Variant type (in definite conitions).

Your code in another letter (recursion) is really perfect!
Frankly saing, I understood these ideas self but 
then was far from Internet. I like recursion but 
think that sometimes recursion is not optimizing.
It is not only my opinion - I read in books about it.
By the way, do you know how .NET think about recursion?
I mean is it good to use recursion in managed code?

My solution is using circle.
void __fastcall TForm1::AppMessage(tagMSG &Msg, bool &Handled)
{
   if(Msg.message == WM_LBUTTONDOWN)
   {
     TWinControl* CurContr=this;
     while(CurContr)
        {
         TPoint click=CurContr->ScreenToClient(Msg.pt);
         TControl* cntrl=dynamic_cast<TControl*>(CurContr->ControlAtPos(click,False,True));
         if(!cntrl)return;
         if(SpeedButton1 == dynamic_cast<TSpeedButton*>(cntrl))
               {
                ShowMessage("Button event catched!");
                Handled=true;
                return;
               }
          else CurContr=dynamic_cast<TWinControl*>(cntrl);
        }
   }
}

Vladimir.