troubleshooting Question

Trouble with broadcasting messages (TWinControl)

Avatar of rainwise
rainwise asked on
Delphi
4 Comments1 Solution860 ViewsLast Modified:
{ Delphi 7 on XP Pro}
Hi,
I am trying to send a custom broadcast message to all components within my application. I can send a custom message using "PostMessage" from within the main form and the forms handler gets it fine. If I try a broadcast the handler doesn't catch it. The Delphi help shows how to send the broadcast message but not how to trap them.  Could someone provide a code snippet to illustrate how to post and catch a custom broadcast  message. Here are some of the key functions from my test program:



const
MY_MESSAGE= WM_USER +5;

private { Form1 }
 procedure MessageHandler(var M: TMessage); message MY_MESSAGE;

{ The message handler for the form }
procedure TForm1.MessageHandler(var M: TMessage);
begin ......

procedure TForm1.FormCreate(Sender: TObject);
var
 Msg:TMessage;
begin
  Msg.Msg := MY_MESSAGE;
  Msg.WParam := 0;
  Msg.LParam := Longint(Self);
  Msg.Result := 0;

  self.Broadcast(Msg); // This doesn't work
//  PostMessage(handle,MY_MESSAGE,0,0); // this does work
ASKER CERTIFIED SOLUTION
mokule

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Log in to continue reading
Become an EE member today7-DAY FREE TRIAL
Members can start a 7-Day Free trial then enjoy unlimited access to the platform for $9.99/mo
View membership options
Unlock 1 Answer and 4 Comments.
or
Learn why we charge membership fees
We get it - no one likes a content blocker. Take one extra minute and find out why we block content.
See how we're fighting big data
The Value of Experts Exchange in My Daily IT Life

Experts Exchange (EE) has become my company's go-to resource to get answers. I've used EE to make decisions, solve problems and even save customers. OutagesIO has been a challenging project and... Keep reading >>

Mike

Owner of Outages.IO
Phoenix, Arizona, United States
Member Since 2016
Join a full scale community that combines the best parts of other tools into one platform.
Unlock 1 Answer and 4 Comments.
View membership options
“All of life is about relationships, and EE has made a virtual community a real community. It lifts everyone's boat.”
William Peck

Member since 2004