客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
实例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.
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论