• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

delphi中Message消息的使用方法

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
 

delphi中Message消息的使用方法

实例1 

unit Unit1;

interface

uses

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

 

 const

WM_ME=WM_USER+100; //自定义消息;

 type

 TForm1 = class(TForm)

    Button1: TButton;

procedure  Button1Click(Sender: TObject);

//第一种消息处理方式; 只能处理常量消息;

    procedure  wmme(var message:TMessage);message WM_ME; //自定义消息处理过程,专门处理WM_ME消息; private

   { Private declarations }

 public

{ Public declarations }

//第二种消息处理方式;可能处理常量或变量消息;

procedure  WndProc(var message:TMessage);override; //重载窗口消息过程

//第三种消息处理方式

    procedure  WMCommand(var Message: TWMCommand); message WM_COMMAND; //命令消息处理过程

    procedure WMSysCommand(var Msg:TWMSysCommand);message WM_SYSCOMMAND; //处理系统性消息;

 end;

var

 Form1: TForm1;

implementation

{$R *.dfm}

 

procedure  TForm1.Button1Click(Sender: TObject);

begin

   SendMessage(Handle,WM_ME,0,0); //发送消息WM_ME ; 消息先由WndProc处理,再交给wmme处理;

end;

 

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin

  //下面代码的作用是,用户如果点击了标题栏上的最小化和关闭按钮,则隐藏窗体。
  if (Msg.CmdType=SC_MINIMIZE) or (Msg.CmdType=SC_CLOSE) then
  begin

    Self.Hide;

  end else
  DefaultHandler(Msg); //这句的作用是继续处理其它消息;
end;

 

procedure  TForm1.WMCommand(var Message: TWMCommand);

begin     //第三种消息处理方式

if Message.NotifyCode = BN_CLICKED  then

if FindControl(Message.Ctl) = Button1 then showmessage(‘点击了Button1’);
inherited;

end;

 

procedure  TForm1.wmme(var message: TMessage);

begin

 ShowMessage(IntToStr(Handle)+ 'wmme'); //第一种消息处理方式

end;

 

procedure  TForm1.WndProc(var message: TMessage);

begin

   if message.Msg=WM_ME then //第二种消息处理方式

     ShowMessage(IntToStr(Handle)+ 'WndProc');

 inherited WndProc(Message); //这里inherited才会触发一次wmme消息;

end;

end.

 

实例2/////////////////////////////////////////////////////////////消息的广播方式/////////////////////////////////////////////////////////////////////////////

///////消息广播只能将消息传递到接收消息的主程序中,MDIChild窗体不能接收到广播消息;/////////

unit Unit1;

interface

uses

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

type

 TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

 private

    { Private declarations }

 public

    { Public declarations }

    procedure WndProc(var message:TMessage);override;

 end;

var

 Form1: TForm1;

 MyMessage: DWORD;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.WndProc(var message: TMessage);

begin

 if message.Msg=MyMessage then //第3步:重载Windows消息处理过程,处理接收到的MyMessage消息;

 ShowMessage(FloatToStr(Handle)+ 'MyMessage');

 inherited WndProc(Message);

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

 SendMessage(HWND_BROADCAST,MyMessage,0,0); //第2步:广播MyMessage消息;

end;

/////////预先注册好Windows消息;第一种方法////////////////////

procedure TForm1.FormCreate(Sender: TObject);

begin

 //同一字符串,如'MyMessageMe'在不同的程序中调用RegisterWindowMessage注册消息时,返回的MyMessage结果是一样的。这样为在不同程序之间广播消息提供了可能。即不同程序注册消息时,必须注册相同的注符串。

    MyMessage:=RegisterWindowMessage('MyMessageMe'); //第1步:注册Windows消息,重点在于返回的值MyMessage

end;

/////////预先注册好Windows消息;第二种方法////////////////////

{ initialization

 MyMessage:=RegisterWindowMessage('MyMessageMe');

}

 

 

//BroadcastSystemMessage,可以在进程之间广播消息;

procedure TForm1.SendSMSMessage;
var
  SMSMessage:Cardinal;
  recipt:Cardinal;
begin
 try
  SMSMessage:=RegisterWindowMessage('SendSMSMessage');
  recipt:=BSM_ALLDESKTOPS; //所以桌面程序都可以接收
  BroadcastSystemMessage(BSF_POSTMESSAGE,@recipt,SMSMessage,0,0);
 except


 end;
end;

 

end.

 


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
在matlab2015b中配置vlfeat-0.9.18发布时间:2022-07-18
下一篇:
Matlab实现Hough变换检测图像中的直线 ...发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap