重载WindowProc、WndProc

关注

原创最新推荐文章于 2026-03-20 02:01:56 发布 3.6k 阅读 AI 写同款· GEO 优化 ›

低功耗基础概念——Level Shifter cell补充信号跨越不同级别电压模块进行驱动时，需要使用level shifter。 H2L Level shifer 从高电压到低电压的level shifter，可以是两个反相器的串联。输入高电平区域信号INH，输出低电平区域信号OUTL，注意供应电源由低电压模块提供，即图中的VDDL。从图中可以看出，H2L的level shifter只会引入一个buffer的延迟，对时序的影响较小。 L2H Level shifer 用低电压区域的信号invert和buffer之后得到的一对信号来驱动工作在高电压区域的交阅读详情

方法一WindowProc

void __fastcall myWindowProc(Messages::TMessage &Message); //增加
Classes::TWndMethod OldWindowProc; //增加

void __fastcall TForm1::myWindowProc(Messages::TMessage &Message)
{
   if (Message.Msg == WM_MOUSEWHEEL)
   {
     //::MessageBox(NULL,"OK","Message",0); //测试
     Caption = Now();
   }

else
OldWindowProc(Message);
}

void __fastcall TForm1::FormCreate(TObject *Sender)
{

OldWindowProc=Edit1->WindowProc;
Edit1->WindowProc=myWindowProc;
}

方法二 MESSAGE_MAP

class TForm1 : public TForm
{
__published: // IDE-managed Components
TEdit *Edit1;
private: // User declarations
void __fastcall OnEditMouseWell(TMessage &Message);
BEGIN_MESSAGE_MAP

MESSAGE_HANDLER(WM_MOUSEWHEEL, TMessage, OnEditMouseWell)

END_MESSAGE_MAP(TForm) //TForm 换成TEdit

public: // User declarations
__fastcall TForm1(TComponent* Owner);
};

void __fastcall TForm1::OnEditMouseWell(TMessage &Message)
{
if(String(ActiveControl->ClassName())=="TEdit") //所有的Edit
Caption = Now(); //测试

//TForm::Dispatch(&Msg);

}

方法三重载 WndProc

private: // User declarations
void __fastcall WndProc(Messages::TMessage &Message);

void __fastcall TForm1::WndProc(Messages::TMessage &Message)
{
if (Message.Msg == WM_MOUSEWHEEL && Message.WParam )
    {
      Caption = Now();
    }
    TForm::WndProc(Message);
}