BCB override WndProc

//————————————————————————— #ifndef Unit1H #define Unit1H //————————————————————————— #include <Classes.hpp> #include <Controls.hpp> #include <StdCtrls.hpp> #include <Forms.hpp> //————————————————————————— class TForm1 : public TForm { __published:    // IDE-managed Components     void __fastcall FormClick(TObject *Sender); private:    // User declarations protected:      // Override WndProc      virtual void __fastcall WndProc(Messages::TMessage &Message); public:        // User declarations     __fastcall TForm1(TComponent* Owner); }; //————————————————————————— extern PACKAGE TForm1 *Form1; //————————————————————————— #endif

Unit1.cpp (視窗類別實作)

#include <vcl.h> #pragma hdrstop   #include "Unit1.h" //————————————————————————— #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //————————————————————————— __fastcall TForm1::TForm1(TComponent* Owner)     : TForm(Owner) { } //————————————————————————— void __fastcall TForm1::WndProc(Messages::TMessage &Message){    // 阻斷訊息     if(Message.Msg == WM_LBUTTONUP || Message.Msg == WM_LBUTTONDOWN){         return;     }     // 繼續原始訊息的分派     TForm::WndProc(Message); } void __fastcall TForm1::FormClick(TObject *Sender) {     Caption = "Hello"; } 判断form是否已经显示 bool __fastcall TAddSongForm::IsFormShow(TForm *frm) {  for (int i = 0; i < Screen->FormCount; i++)  {   if (Screen->Forms[i] == frm)    return true;  }  return false; }