BCB override WndProc

最新推荐文章于 2025-08-10 16:35:35 发布

原创最新推荐文章于 2025-08-10 16:35:35 发布 · 1.4k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#components #user

BCB 专栏收录该内容

9 篇文章

订阅专栏

本文介绍了一个使用VCL库实现的基本窗体类TForm1。该类包含了点击事件处理和消息分派的自定义实现，同时提供了一个检查窗体是否显示的方法。代码示例展示了如何创建窗体类及其实现细节。

//—————————————————————————
#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;
}