Sending Message ?
Posted on 1998-12-22
following is my simple event, but it's just work in single unit, how to place the same message event to any forms i want. Once sending the message, all the forms with that event will be fire. it's something like broadcast the message.please help me with a sample code.
SX_MESSAGE = WM_USER;
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure MYEVENT(var Msg : TMessage);message SX_MESSAGE;
procedure TForm1.FormCreate(Sender: TObject);
procedure TForm1.MYEVENT(var Msg: TMessage);