(C++ VCL) Window messages

//Place an TApplicationEvents and TRichEdit on the Form
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
  Application->OnMessage = ApplicationEvents1->OnMessage;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg,
      bool &)
{
  if (Msg.message==0) return;
  RichEdit1->Lines->Add( IntToStr(Msg.lParam) + '\t' + IntToStr(Msg.wParam));
}
//---------------------------------------------------------------------------

Window messages

• Generate user messages

Code links

• if
• return
• TApplicationEvents
• TForm
• TForm1
• TRichEdit