ZeelandNet Webmail Hi,
I'm trying to understand how message
methods work in FPC. For this I created a simple app that shows a
message. I also created a second (identical form) and I expected that
all message methods related to MY_MESSAGE would be executed when I
pressed either one or the other button. This did not happen however even
when dispatching through the Application object. Can someone explain me
please?
Regards, Darius
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure
Button2Click(Sender: TObject);
procedure MessageReceiver(var msg:
TMsg); message MY_MESSAGE;
private
{ private declarations }
public
{
public declarations }
end;
var
Form1: TForm1;
implementation
{$R
*.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender:
TObject);
begin
msg.MSGID := MY_MESSAGE;
msg.Data := 'Hello World!';
Dispatch(msg);
end;
procedure TForm1.Button2Click(Sender:
TObject);
begin
Form2.Show;
end;
procedure TForm1.MessageReceiver(var
msg: TMsg);
begin
ShowMessage(msg.Data);
end; _______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
