🚀 go-pugleaf

Perhaps you might like to do something like this

1) WndProcSpeedButton.h

#ifndef WndProcSpeedButtonH
#define WndProcSpeedButtonH
//--------------------------------------------------------------------------
-
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Buttons.hpp>
//--------------------------------------------------------------------------
-
class TUserSpeedButton : public TSpeedButton
{


  public:
   __fastcall TUserSpeedButton(TComponent* Owner): TSpeedButton(Owner)
   {
   }

   __fastcall ~TUserSpeedButton()
   {
   }
   void __fastcall WndProc(Messages::TMessage &MessageUser);
};

class TForm1 : public TForm
{
__published: // IDE-managed Components
        TEdit *Edit1;

private: // User declarations
public:  // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//--------------------------------------------------------------------------
-
extern PACKAGE TForm1 *Form1;
//--------------------------------------------------------------------------
-
#endif

1) WndProcSpeedButton.cpp
//...
TUserSpeedButton* p;
TColor OriginalColor;

TForm1 *Form1;
//--------------------------------------------------------------------------
-
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
    p = new TUserSpeedButton(this);
    p->Parent = this;
    p->Width = 200;
    p->Height = 100;
    p->Top = 100;
    p->Left = 100;
    p->Caption = "UserSpeedButton";
    OriginalColor = Color;
    Edit1->Text = "";
}
//--------------------------------------------------------------------------
-

void __fastcall TUserSpeedButton::WndProc(Messages::TMessage &Message)
{
// Intercept the two messages: WM_RBUTTONDOWN
// and WM_LBUTTONDOWN and respond doing some
// action

   if (Message.Msg == WM_RBUTTONDOWN)
   {
       Form1->Edit1->Text = "Right Button Pressed: SB is Flat";
       Flat = true;
       Form1->Color = clPurple;
       Form1->Edit1->Color = clRed;
   }

   if (Message.Msg == WM_LBUTTONDOWN)
   {
       Form1->Edit1->Text = "Left Button Pressed: SB is not Flat";
       Flat = false;
       Form1->Color = OriginalColor;
       Form1->Edit1->Color = clWhite;
   }

   TSpeedButton::WndProc(Message);
}

Rodolfo



"Mattias Carleson" <mattias.carleson@commentor.se> wrote in message
news:3f27ad3f$1@newsgroups.borland.com...
> Sorry, was a little quick answering. Now it works trapping WM_COMMAND from
> TButton
> and TBitBtn i WndProc. In Application->OnMessage it doesnt work, but never
> mind. But I
> still whant to trap the message when the user clicks a TSpeedButton. The
> TSpeedButton is placed
> in a TToolBar or a TCoolBar, Ive tried both.
>
> > WM_COMMAND only applies to windowed controls, which TSpeedButton is not.
> > What you are attempting to do would apply for TButton or TBitBtn, but
not
> > TSpeedButton.
>
> Ok, so I wrote the following code. It works, almost.
>
> void __fastcall TForm1::WndProc(TMessage& Msg)
> {
>    if(Msg.Msg == WM_LBUTTONDOWN)
>    {
>         ShowMessage("Left mousebtn trapped in WndProc!");
>     }
> }
>
> There is just one problem. When the form shows for the first time,
clicking
> on the speedbutton or the
> toolbar/coolbar doesnt generate any WM_LBUTTONDOWN. First I have to click
> somewhere on
> the mainforms client area. Doing that generates the message, and after
that
> clicking the speedbutton
> does too. What is the logic and how can I make it generate the message at
> once?
>
> A second question. I need to detect which speedbutton generating the
> message. Do I have to use the
> TControl::ClientToScreen() function and compare coordinates?
>
> Thankyou
> /Mattias
>
>