unit1.pas

含此文档只表示此压缩包来自于DELPHI盒子网站 ------------------------------------------------------------------------

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    btnMsg2000: TButton;
    btnMsg2001: TButton;
    btnMsg2002: TButton;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure btnMsg2000Click(Sender: TObject);
    procedure btnMsg2002Click(Sender: TObject);
    procedure btnMsg2001Click(Sender: TObject);
  end;

var
  Form1: TForm1;
  MsgAccept : TMsgAccepter;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
    MsgAccept := TMsgAccepter.Create();
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
    MsgAccept.Free();
    MsgAccept := nil;
end;

procedure TForm1.btnMsg2000Click(Sender: TObject);
var
    Msg : TMyMsg;
begin
    Msg.Msg := 2000;
    Msg.MsgText := 'Message 2000';
    MsgAccept.Dispatch(Msg);
end;

procedure TForm1.btnMsg2002Click(Sender: TObject);
var
    Msg : TMyMsg;
begin
    Msg.Msg := 2002;
    Msg.MsgText := 'Message 2002';
    MsgAccept.Dispatch(Msg);
end;

procedure TForm1.btnMsg2001Click(Sender: TObject);
var
    Msg : TMyMsg;
begin
    Msg.Msg := 2001;
    Msg.MsgText := 'Message 2001';
    MsgAccept.Dispatch(Msg);
end;

end.