(C++ VCL) Window messages

The VCL blends nicely with window messages.

The example below shows how to trap all 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

last edited (November 18, 2006) by bilderbikkel, Number of views: 4195, Current Rev: 4 (Diff)

[Edit this page] [Page history] [What links here] [Discuss this topic] [Printer Friendly]