msgdisptest.pas

Delphi高手突破源码

////////////////////////////////////////////////////////////////////////////////
//
//
//  FileName    :   MsgDispTest.pas
//  Creator     :   Shen Min
//  Date        :   2002-2-21
//  Comment     :   MessageDispatch class Demo for <<delphi after high hand>>
//
//
////////////////////////////////////////////////////////////////////////////////

unit MsgDispTest;

interface

uses Dialogs, Messages;

type
    TMyMsg = record
        Msg : Cardinal;
        MsgText : ShortString;
    end;

    TMsgAccepter = class
    private
        procedure AcceptMsg2000(var msg : TMyMsg); message 2000;
        procedure AcceptMsg2002(var msg : TMyMsg); message 2002;
    public
        procedure DefaultHandler(var Message); override;
    end;

implementation

{ TMsgAccepter }

procedure TMsgAccepter.AcceptMsg2000(var msg: TMyMsg);
begin
    ShowMessage('嗨，我收到了编号为 2000 的消息，它的描述是：' + msg.MsgText);
end;

procedure TMsgAccepter.AcceptMsg2002(var msg: TMyMsg);
begin
    ShowMessage('嗨，我收到了编号为 2002 的消息，它的描述是：' + msg.MsgText);
end;

procedure TMsgAccepter.DefaultHandler(var message);
begin
    ShowMessage('嗨，这个消息我不认识，无法接收，它的描述是：' + TMyMsg(message).MsgText);
end;

end.