社区
Delphi
帖子详情
为什么收不到自己发送的消息?
luxiaoban
2001-09-17 09:21:02
我有正在编写一个控件,
有一个消息需要发送给自己,
但好象自己收不到这个消息,为什么?
BTW:这个控件是继承于TComponent.
...全文
230
15
打赏
收藏
为什么收不到自己发送的消息?
我有正在编写一个控件, 有一个消息需要发送给自己, 但好象自己收不到这个消息,为什么? BTW:这个控件是继承于TComponent.
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用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
打赏
举报
回复
自定义消息
gt2怎么与微信连接不上服务器,华为WATCH GT2
收不到
通知
消息
怎么办?
收不到
短信微信
消息
的解决方...
华为WATCH GT2是一款主打长续航的智能手表,运动体验非常的不错。那么当我们在使用华为WATCH GT2时
收不到
比如短信或者微信的通知
消息
怎么办呢。对众多网友来说,华为WATCH GT2
消息
通知接
收不到
还不晓得如何解决呢,今天智能手机网小编就来详细介绍一下解决方法,一起来瞧一瞧呢!华为WATCH GT2
收不到
通知
消息
怎么办?华为WATCH GT2
收不到
通知
消息
怎么办1、首先进入华为运动健康Ap...
netty 接
收不到
客户端传来的
消息
_Netty-服务端接
收不到
客户端
发送
消息
案例
得益于高性能、低时延的优势,Netty被广泛应用于物联网领域,用于海量终端设备的协议接入、
消息
收发和数据处理。当服务端出现性能瓶颈或者阻塞时,就会导致终端设备连接超时和掉线,引发各种问题,因此在物联网场景下,一定要防止服务端代码因为编码不当导致的意外阻塞,进而无法处理终端请求
消息
。服务端接
收不到
客户端
发送
消息
案例堆栈分析以及解决方案NioEventLoop线程防死锁策略总结服务端接
收不到
客户端
发送
...
邮箱
收不到
邮件怎么办,跨国的邮件为什么
收不到
?
邮箱
收不到
邮件怎么办,跨国的邮件为什么
收不到
?电子邮箱使用过程中,常会遇到
收不到
对方发来的邮件的情况,遇到此类情况先不要着急,分享几招快速自查及解决的方法,网络辛苦搜集的,快操作起来吧~
收不到
邮件原因有哪些? 1、网络问题,当然,这种现象为根本原因的情况不多。但是不失为有些小迷糊会因为网络原因导致邮件无法正常接收。 2、邮件进入垃圾箱:这种运营通常是算法判定产生。通过来信内容及地址、发信频率等多种因素分析未垃圾邮件,这时候检查下垃圾箱是很有必要的。 3、收件设置:检查是否是有进行白名单、收件限制的设置 4
微信小程序绑定客服,接
收不到
消息
?
微信小程序绑定客服,无法接收用户
消息
客服文档 添加客服 <button class="serviceBtn" open-type="contact">客服</button> 注意事项 查看是否授权第三方 在微信小程序-设置-第三方设置-第三方平台授权管理,查看是否有授权给第三方。 如果有受权第三方,则所有客服
消息
将推送到第三方平台; 开启
消息
推送方式 若已启用小程序
消息
推送,用户发给小程序的
消息
都将被转发到已填写的服务器地址 开启
消息
推送方式 若已启用小程
手机
收不到
短信怎么回事?8个原因全面解读
手机
收不到
短信怎么回事? 随着各种通讯、聊天软件的出现,短信功能越来越弱化,但是要是突然手机
收不到
短信了,却也是非常不方便的,像银行给我们发的交易提醒短信,登录一些网站、app软件需要输入短信验证码,所以短信功能是不能完全被替代的,那手机
收不到
短信怎么回事呢?怎么恢复呢?下面创瑞小编就来详细介绍一下: 原因1:无缘无故出问题 突然
收不到
短信,自己又没有对手机做其他操作,手机的电话、微信等其他功能又正常,这个时候大多是运营商服务器出了问题,从而导致网络延迟,所以可以拨打运营商客服电话,如移动10086,电信
Delphi
5,392
社区成员
262,732
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章