delphi 中的消息（2）---自定义消息

最新推荐文章于 2024-08-14 18:23:16 发布

weixin_34248258

最新推荐文章于 2024-08-14 18:23:16 发布

阅读量129

点赞数

原文链接：http://www.cnblogs.com/guogairenjia/archive/2011/11/02/2233471.html

版权

这个帖子说下如何自定义消息，既然我们已经了解了delphi封装的消息，现在来看看，如何自定义一个消息，直接看代码吧。

unit Unit2;

interface

uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  Vcl.StdCtrls;

const
  // WM_USER  是目前最大的一个消息常量了，我们在这之上再加个1000吧，后面的消息可以加1001,1002
  WM_MYMSG = WM_USER + 1000;

type
  TForm2 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
    procedure OnMymsg(var Message: TMessage); message WM_MYMSG;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

{ TForm2 }
procedure TForm2.btn1Click(Sender: TObject);
begin
  Sendmessage(self.Handle, WM_MYMSG, 0, 0);
end;

procedure TForm2.OnMymsg(var Message: TMessage);
begin
  ShowMessage('my msg start....');
end;

end.

转载于:https://www.cnblogs.com/guogairenjia/archive/2011/11/02/2233471.html