自定义消息处理的步骤

最新推荐文章于 2019-05-28 11:27:28 发布

carldada

最新推荐文章于 2019-05-28 11:27:28 发布

阅读量569

点赞数

分类专栏： Delphi 文章标签： delphi

本文链接：https://blog.csdn.net/carldada/article/details/86635327

版权

Delphi 专栏收录该内容

12 篇文章 0 订阅

订阅专栏

unit Unit1;

interface

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

type
  //定义自己的消息
  TMyMsg = record
    FmsgID: Integer;         //前4个字节必须是消息号
    FmsgStr: string;
  end;

  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
    FMyMsg: TMyMsg;
    procedure HandleMsg2001(var Amsg: TMyMsg); message WM_USER + 1 ;   //定义消息的处理函数
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
  FMyMsg.FmsgID := WM_USER + 1;          //消息号
  FMyMsg.FmsgStr := 'WM_USER + 1';       //消息的参数
  Self.Dispatch(FMyMsg);                 //向对象发送消息
end;

procedure TForm1.HandleMsg2001(var Amsg: TMyMsg);
begin
  ShowMessage(Amsg.FmsgStr);
end;                                    //消息的处理

/// <remarks>
/// 自定义消息的步骤
///  1；定义消息结构体
///  2：定义类消息处理函数
///  3：发送消息给该类的对象
/// </remarks>

end.