In Unit1.cpp
~~
TForm1 *Form1;    bool If_Pressed=false;    //---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 OldButtonWndProc=Button1->WindowProc;
 Button1->WindowProc=ButtonWndProc;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonWndProc(TMessage& Message)
{
 if (Message.Msg==BM_SETSTATE) {
     if (!If_Pressed) {
         if (SendMessage(Button1->Handle,BM_GETSTATE,0,0)==104) {
             OldButtonWndProc(Message);
             If_Pressed=true;
             Button1->Caption="按下";                 //這裡可以寫按下要做的事，例：
             Memo1->Lines->Add("我被按下了");                 return;
         }             if (SendMessage(Button1->Handle,BM_GETSTATE,0,0)==108) {
             Message.WParam=0;
             OldButtonWndProc(Message);
             //If_Pressed=true;
             Button1->Caption="彈起";                 //這裡可以寫彈起要做的事，例：
             Memo1->Lines->Add("我被彈起了");                 return;
         }
     }
     else {
         If_Pressed=false;
         return;
     }         return;
 }     OldButtonWndProc(Message);
}    ~~