receive.pas

罗小平<<delphi精要>>一书源码

unit Receive;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    ID: DWORD;   
    procedure NewOnMessage(var Msg: TMsg; var Handled: Boolean);
  protected
    procedure WndProc(var Message: TMessage); override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.NewOnMessage(var Msg: TMsg; var Handled: Boolean);
begin
  if Msg.message = ID then
  begin
    ShowMessage('应用程序收到消息');
    Handled := True;
  end;
end;     


procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := '接受者';
  ID := RegisterWindowMessage(PChar('OneOfAppMessage')); 
  Application.OnMessage := NewOnMessage; 
end;

procedure TForm1.WndProc(var Message: TMessage);
begin
  inherited;
  with Message do if Msg = ID then
  begin
    ShowMessage('主窗体收到消息');
    Result := 0;
  end
end;

end.