社区
Delphi
帖子详情
为什么收不到自己发送的消息?
luxiaoban
2001-09-17 09:21:02
我有正在编写一个控件,
有一个消息需要发送给自己,
但好象自己收不到这个消息,为什么?
BTW:这个控件是继承于TComponent.
...全文
237
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
消息
推送
androidpn
消息
推送 其中包含客户端 服务器端包含tomcat和jetty版本
通过OutlookExpress发邮件
为你的主页增加一个不通过OutlookExpress发邮件的功能,可以让访问者填入收件人的信箱地址、发件人的信箱地址,还可以定义邮件的主题!
Android EventBus事件有时接
收不到
消息
今天遇到了一个问题,一进入app EventBus 的订阅者就要获取
消息
,但是今天 EventBus发布事件之后回调方法无响应,订阅者并没有得到
消息
。但是在这之前是可以的,我没有动代码怎么就
收不到
消息
了?我又测了几遍发现有时候可以有时候不可以。 接受不到
消息
一般是因为 1.没有注册 2.接收
消息
的方法不是public 3.接受
发送
的参数或接受的参数有一个写错了导致参数不一致 4.同一类型的粘性事件。 5.被优先级高的拦截了 不是粘性事件,而且有时候可以接收
消息
这几条都可以排除,考虑到一进入app就要获取
消息
【Android】EventBus
收不到
消息
的一种情况
Eventbus接
收不到
数据
使用Ajax接
收不到
返回值???
flask+layui使用Ajax请求数据不能返回数据(使用Ajax接
收不到
返回值) 在做一个flask的小项目时页面需要用button按钮请求后台返回数据,于是顺理成章的想到了用layui自带jquery的ajax请求,button代码如下: <form> ... <div><button class="layui-btn" id="loadData">加...
Delphi
5,928
社区成员
262,931
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章