阅:已验证,可通过;
摘自:http://blog.163.com/charls-007/blog/static/3545620820094309115530/
自定义的消息必须由用户向窗口发送。Windows 提供了两种不同的方法向窗口发送Windows 消息:
PostMessage 函数和SendMessage 函数。这里通过例子来说明如何使用自定义消息。使用自定义消息前,
首先要定义一个消息标识符常量,为了避免和系统中已有消息标识符冲突,可在WM_USER 消息标识
符的基础上添加一个常量来赋给要定义的消息标识符。然后可在单元文件中定义消息响应过程和消息
标识符常量。消息响应过程使用消息类TMessage 的变量为参数,随后应定义一个消息标识符变量,
变量名必须为Message。
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::以下为整个unit文件代码::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
const
//定义一个WM_MYMESSAGE 消息
WM_MYMESSAGE=WM_USER+5;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
Procedure WMUser(var msg:TMessage);Message WM_MYMESSAGE;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//编写响应自定义消息的代码
procedure TForm1.WMUser(var msg:TMessage);
begin
ShowMessage('自定义消息。。。');
end;
{当自定义消息的工作完成后,可用PostMessage 函数或SendMessage 函数来发送自定义的Windows
消息,当然首先要获取目标窗口的句柄。例如,如果窗体(类名为TForm1,Caption 属性为“使用自
定义的Windows 消息”)有一个“消息”按钮(名为Button1),当单击“消息”按钮时要触发自定义
的Windows 消息WM_MYMESSAGE,可以为按钮的OnClick 事件编写代码如下:}
procedure TForm1.Button1Click(Sender: TObject);
var
HWnd:THandle;
begin
HWnd:=FindWindow('TForm1','使用自定义的windows消息');
if HWnd<>0 then
PostMessage(HWnd,WM_MYMESSAGE,0,0);
end;
end;
end.
分享到:
相关推荐
delphi 自定义消息例子,不错的 delphi 自定义消息例子,不错的 QQ16643506
Delphi 自定义消息的使用,一个很不错的例子教程让你一眼揭破迷经
和showmessage一样好用,定时自动关闭提示窗口, 进度条窗口也可以各种自定义,很cool
delphi用户自定义消息
delphi自定义控件demo源码,本示例在D7下测试成功。 注册组件。 点击Componet->Install Componet进行自定义组件安装,此时将出现组件安装对话框。 在Unit FilName 中输入控件单元文件 的文件名(包括路径),...
支持DEPHI7~XE5 有源码和透明图标资源看看
delphi 自定义窗口delphi 自定义窗口delphi 自定义窗口delphi 自定义窗口delphi 自定义窗口delphi 自定义窗口delphi 自定义窗口delphi 自定义窗口delphi 自定义窗口delphi 自定义窗口
这本书讲的是Delphi控件开发技术,请大家以Delphi7以下版本开发该例子!
Delphi自定义函数示例程序
(九)delphi自定义控件属性编辑
详细讲解 Delphi 自定义控件 TDragTreeView 的设计过程,图文并茂,完整代码,完整记录思考过程。 TDragTreeView 具有的功能,节点的添加,移动,复制功能,使相关操作更简单。智能拖放节点,是用该控件后,无需编写...
Delphi自定义控件开发.pdf
delphi 自定义 窗体 皮肤 窗体 皮肤 组件
hook 自定义消息 (delphi 7)
delphi自定义控件_treeview控件加强 Tmytreeview 对treeview控件加强 实现增删改及拖拽操作
自定义的messagebox使消息框居中窗口中间。
---- 由于直接使用此函数比较复杂,我们可以自定义一个函数来封装此函数,对它进行简化,在用法上尽量做到与Delphi的消息框相一致,自定义函数代码如下: function MessageEx (lText,lCaption:PChar; lStyle:DWord...
delphi自定义窗体描边演示delphi自定义窗体描边演示
Delphi自定义的多条件查询公共单元代码..rar