Delphi 使用自定义消息
2013-08-30 15:12
615 查看
Delphi 使用自定义消息
1、先用Const 定义一个常量,例如 const WM_MyMessage=WM_USER+$200;2、在要实现的unit中定义一个私有方法
procedure doMyMessage(var msg:TMessage);message WM_MyMessage;
3、实现这个私有方法
procedure TForm1.doMyMessage(var msg:TMessage);
begin
//
if msg.Msg= WM_MyMessage then
showmessage('好啊')
else
showmessage('不好');
end;
4、最重要 把这个消息广播出去 Form1.Perform(WM_MyMessage,0,0);
下面是实现的代码
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
const WM_MyMessage=WM_USER+$200;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
procedure doMyMessage(var msg:TMessage);message WM_MyMessage;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.doMyMessage(var msg:TMessage);
begin
//
if msg.Msg= WM_MyMessage then
showmessage('好啊')
else
showmessage('不好');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Perform(WM_MyMessage,0,0);
end;
end.
相关文章推荐
- Delphi 使用自定义消息
- delphi发送消息控制滚动条使用示例
- HTML5--表单新特性使用自定义错误提示消息validity属性
- 使用HttpWebRequest发送自定义POST请求(以http方式推送消息)
- 使用delphi+intraweb进行微信开发4—微信消息加解密
- Vc/MFC中自定义消息及其PostMessage触发使用
- MFC中使用自定义消息
- delphi中使用mapx想用鼠标滚轮实现自定义倍率的缩放,并且限制一定的缩放倍数
- MFC消息三部曲(1)——自定义消息的使用
- Delphi XE5开发Android程序使用自定义字体文件.
- 自定义消息中如果需要定义WPARAM和LPARAM,该怎么使用和分配?
- haxe 使用自定义消息
- [转]在C#中使用自定义消息
- VC中如何使用自定义消息?
- [每日一学]MFC学习笔记——自定义消息的使用
- MFC的自定义消息(用户消息)的定义与使用
- MFC使用SendMessage()发送自定义消息实现进程间通信
- MFC中自由使用自定义消息
- 初次尝试使用自定义消息
- 用户自定义消息SendMessage的使用