社区
Delphi
帖子详情
为什么收不到自己发送的消息?
luxiaoban
2001-09-17 09:21:02
我有正在编写一个控件,
有一个消息需要发送给自己,
但好象自己收不到这个消息,为什么?
BTW:这个控件是继承于TComponent.
...全文
238
15
打赏
收藏
为什么收不到自己发送的消息?
我有正在编写一个控件, 有一个消息需要发送给自己, 但好象自己收不到这个消息,为什么? BTW:这个控件是继承于TComponent.
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
15 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
luxiaoban
2001-09-17
打赏
举报
回复
largewang(垃圾王):
谢谢,成功了
largewang
2001-09-17
打赏
举报
回复
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
const wm_me = WM_USER + 1000;
type
TMyComponent = class(TComponent)
private
procedure ReceiveMessage(var Msg: TMessage); message wm_me;
public
function Perform(Msg: Cardinal; WParam, LParam: Longint): Longint;
end;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ TMyComponent }
procedure TMyComponent.ReceiveMessage(var Msg: TMessage);
begin
showmessage('afd');
end;
function TMyComponent.Perform(Msg: Cardinal; WParam, LParam: Longint): Longint;
var
Message: TMessage;
begin
Message.Msg := wm_me;//Msg;
Message.WParam := WParam;
Message.LParam := LParam;
Message.Result := 0;
if Self <> nil then Dispatch(Message);
Result := Message.Result;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
M: tmycomponent;
begin
M:= tmycomponent.Create(Self);
try
m.Perform(wm_me,0,0);
finally
m.Free;
end;
end;
end.
luxiaoban
2001-09-17
打赏
举报
回复
please answer me.
largewang
2001-09-17
打赏
举报
回复
Let me try.
luxiaoban
2001-09-17
打赏
举报
回复
I want to know why can not receive message.
gzh5200
2001-09-17
打赏
举报
回复
你可以用sendmessage( ),再在wndproc( )中处理消息
largewang
2001-09-17
打赏
举报
回复
Why send message to itself?
Use Method, Ok!
another way:
Send message by it`s owner.
title
2001-09-17
打赏
举报
回复
帮你推一下!
luxiaoban
2001-09-17
打赏
举报
回复
我再推
luxiaoban
2001-09-17
打赏
举报
回复
to wantme:
Perform是TControl的函数,我是从TComponent继承的
wantme
2001-09-17
打赏
举报
回复
采用Perform函数可以
luxiaoban
2001-09-17
打赏
举报
回复
我推
Tense
2001-09-17
打赏
举报
回复
hehe
luxiaoban
2001-09-17
打赏
举报
回复
自定义消息
androidpn
消息
推送
- 服务器端还需要处理
消息
队列,当有新的
消息
需要
发送
时,将
消息
推送到GCM服务器,并通过GCM将
消息
转发到对应的客户端。 文件"**dannytiehui-androidpn-27607bf**"很可能是一个源码仓库或压缩包,包含了AndroidPN...
通过OutlookExpress发邮件
描述中提到的“为你的主页增加一个不通过OutlookExpress发邮件的功能”表明了我们要学习的是如何在网站或网页应用程序中集成邮件
发送
功能,而不是依赖OutlookExpress客户端。用户可以在这个自定义界面填写收件人、寄...
kafka通过控制台模拟
消息
发送
和
消息
接收正常,但是通过javaAPI操作生产者
发送
消息
不成功 消费者接
收不到
数据解决方案?
但是java通过kafka-client的API写的代码始终不能跟kafka通信:java producer的
消息
发不出去, java comsumer也
收不到
任何
消息
。 仔细检查了下代码中IP、端口都没有写错。 解决办法 将kafka/config/server....
rabbitmq
发送
的
消息
接
收不到
2.主要说的2这种情况,就是在延迟队列中,忘记给一个bean加注解导致日志报exchange not found.这个报错,进而引发了bindings没有绑定。没有绑定的话,
发送
消息
就会接
收不到
。1.
消息
被其他消费者消费。
RabbitMQ如何确保
消息
发送
?
消息
接收?
一旦
消息
被投递到queue(可持久化的
消息
需要写入磁盘),信道会
发送
一个确认给生产者(包含
消息
唯一ID)。 如果 RabbitMQ发生内部错误从而导致
消息
丢失,会
发送
一条nack(未确认)
消息
给生产者。 所有被
发送
的
消息
都...
Delphi
5,929
社区成员
262,934
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章