4890
社区成员
- 全部
- 语言基础/算法/系统设计
- 数据库相关
- 图形处理/多媒体
- 网络通信/分布式开发
- VCL组件开发及应用
- Windows SDK/API
- 问答
为什么收不到自己发送的消息？
我有正在编写一个控件，
有一个消息需要发送给自己，
但好象自己收不到这个消息，为什么？
BTW：这个控件是继承于TComponent.
有一个消息需要发送给自己，
但好象自己收不到这个消息，为什么？
BTW：这个控件是继承于TComponent.
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
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.
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.
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继承的
Perform是TControl的函数，我是从TComponent继承的
wantme 2001-09-17
采用Perform函数可以
luxiaoban 2001-09-17
我推
Tense 2001-09-17
hehe
luxiaoban 2001-09-17
自定义消息
linux网络内核书合集06 本合集是本人搜集的关于linux网络内核的书籍，都是经典，包含：（1）Linux网络体系结构：Linux内核中网络协议的设计与实现.chm （2）Linux网络内核分析与开发.pdf （3）嵌入式Linux网络体系结构设计与TCP／IP协议栈.pdf （4）深入理解LINUX网络技术内幕.pdf 第一本是英文版chm格式，其余三本均为中文版，扫描清晰
手把手做安卓应用开发 安豆是一个想学Android应用开发的小白，于是它找到自己的邻居－程序员大牛－熊哥帮忙。熊哥手把手带着安豆搭建程序的开发环境，实现应用的功能，美化应用界面，让安豆终于开发出了自己的第一个安卓应用－计算器。
学习的过程中，两个伙伴有问有答，学习的过程生动有趣。你一定不会睡着。 让从没有接触过安卓开发并且什么都不会的小白，变成一个能够开发出简单的计算器应用的菜鸟。
让小白对安卓开发有个整体的认识，初步形成安卓开发的概念，掌握安卓开发最最基础的知识。
OpenGL-实现视频播放(FFMpeg) 课程采用FFMpeg作视频解码，采用OpenGL实现视频的渲染，从RGB数据的绘制，到直接渲染YUV数据，实现三路YUV数据单纹理的输入，提升系统性能，接着采用PBO方式优化内存到显存的传输，实现DMA传输，解放CPU,将解码和渲染分离到不同的线程中，极大的提升了系统的性能。后介绍视频特效的实现。 介绍如何采用OpenGL渲染视频帧数据，从固定管线到可编程管线一次实现，采用PBO实现DMA数据传输处理，以及简单的视频特效的实现。
敏捷软件开发－原则、模式与实践.pdf 本书讲授了一些原则、模式以及实践，它们可以帮助软件开发人员在追求美的程序、设计以及团队的道路上迈出第一步。本书探索了基本的设计原则，软件设计结构的通用模式以及有利于团队融为一个有机整体的一系列实践。本书包含了许多代码，仔细研读这些代码是学习本书所教授的原则、模式及时间的最有效方法
juniper路由器学习资料 从网络搜集的关于juniper的资源，包含
fru-mx960-acoustic.pdf
fru-mx960-cable-manager.pdf
JNCIA_学习指南中文.pdf
Juniper_EX交换机中文操作手册V1.0.pdf
Juniper_MX_路由器介绍.pdf
Juniper_MX960配置模板v1.2.docx
Juniper_netscreen.ppt
Juniper路由器（M10i）配置手册.pdf
Juniper路由器命令行配置手册.pdf
Juniper路由器实验手册.pdf
junos-cli.pdf
junos-release-notes-13.3.pdf
mx960-hwguide.pdf
mx960-install-quick-start.pdf
MX960操作维护介绍.pdf
MX960路由器操作手册.pdf
mx-series-line-card-guide.pdf
Groovy精简教程 注重实践，剔除繁琐的理论，通过案例讲解我们常用的知识点，各个知识点之间相对独立，不用担心某一个知识点学不会而耽搁学其他的知识点。轻轻松松入门Groovy。 每一个学员都能掌握Groovy的基本用法。
Activiti 工作流入门到大神 什么是流程、工作流作用、Activiti背景简介、Activiti流程设计器安装、Activity环境搭建、通过HelloWorld掌握 Activiti操作流程的步奏、常见API使用、流程部署管理(发布流程、查看流程定义、删除流程、查看流程附件)、流程实例管理(启动流程、查看任务、认领任务、办理任务、查看流程状态) 什么是流程、工作流作用、Activiti背景简介、Activiti流程设计器安装、Activity环境搭建、通过HelloWorld掌握 Activiti操作流程的步奏、常见API使用、流程部署管理(发布流程、查看流程定义、删除流程、查看流程附件)、流程实例管理(启动流程、查看任务、认领任务、办理任务、查看流程状态) QQ:362969068
中国象棋人工智能论文集 这是本人收集的有关中国象棋人工智能的论文集
2009计算机博弈专辑文章.pdf
Computer Games Are an Efficient Tool for Event Game Theory.pdf
MINORS HASH TABLE IN COMPUTER CHINESE CHESS.pdf
中国象棋机器博弈的时间自适应分配策略研究.pdf
中国象棋计算机博弈中搜索算法的研究与改进.pdf
中国象棋计算机博弈关键技术分析.pdf
人工神经元网络结合TD(λ)算法在中国象棋机器博弈中的应用.pdf
博弈论的里程碑成果与局限性分析.pdf
基于剪枝策略的中国象棋搜索引擎研究.pdf
基于机器博弈的作战模拟系统探讨.pdf
大师级象棋机器人研究与开发.pdf
机器博弈研究面临的各种挑战.pdf
棋牌游戏与事件对策.pdf
积极开展民间棋类的计算机博弈活动.pdf
解剖大象的眼睛-中国象棋开发.pdf
计算机博弈原理与方法学概述.pdf
OpenGL 课程涵盖了OpenGL开发的方方面面,对开发中经常用到的开发知识点进行讲解,从实战的角度进行编码设计.
第1章-环境建立
第2章-基础图元
第3章-三维世界
第4章-纹理多彩世界
第5章-显存的分配-优化
第6章-场景控制
第7章-光照-真实世界
第8章-模型
第9章-UI制作
第10章-场景编辑器制作
第11章-地形
第12章-脚本引入-lua 教程从最最本的固定管线开始,一节课一个知识点,从实战的角度出发,结合项目开发中经常用到的知识点作深入的讲解,以面向对象的编成方式对知识点进行封装,可以直接引入到项目中使用.通过课程的学习,掌握OpenGL图形编程技巧,并能学以致用.
linux网络内核书合集01 本合集是本人搜集的关于linux网络内核的书籍，都是经典，包含：（1）Linux网络体系结构：Linux内核中网络协议的设计与实现.chm （2）Linux网络内核分析与开发.pdf （3）嵌入式Linux网络体系结构设计与TCP／IP协议栈.pdf （4）深入理解LINUX网络技术内幕.pdf 第一本是英文版chm格式，其余三本均为中文版，扫描清晰
Hibernate4视频教程_全面来袭 本Java视频教程基于 Hibernate4.x 录制。内容涵盖安装 Hibernatetools 插件、Session 核心方法、持久化对象生命周期、对象关系映射（1-n、1-1、n-n、继承映射）、检索策略、检索方式（对象导航图、OID 检索、HQL、QBC、本地SQL）、Hibernate 一\二级缓存、管理 Session、批量处理等 Hibernate 企业级开发的核心技术。 本Java视频教程将帮助掌握学习者编写出具有合理的软件架构，以及好的运行性能和并发性能的实用 Hibernate 应用。Java视频教程内容注重理论与实践相结合，列举大量具典型性和实用价值的 Hibernate应用实例，并提供详细的开发和部署步骤。
掌握JQuery视频教程 JQuery是一个优秀的JavaScript库。它是轻量级的JS库 ，它兼容CSS3，还兼容各种浏览器（IE 6.0+, FF 1.5+, Safari 2.0+, Opera 9.0+）,是我们编写JavaScript的利器！
适合对象：
需要大量编写JavaScript的朋友
学习条件：
必须掌握HTML、CSS、JavaScript、dom
OpenGL ES2.0基础 初级学习OpenGL ES2.0的课程，从无到有，从进本的函数讲起，每一课时都附带一个例子程序。深入浅出的讲解可编程管线技术，令人费解的文理，以及混合技术，各种优化技术：顶点缓冲区，索引缓冲区，帧缓冲区，介绍精灵的使用，并使用shader制作粒子特效。 掌握OpenGL ES2.0可编程管线，以及OpenGLES2.0的特性，带领初学者入门。
HTML5经典中文教程大全-从入门到精通-含html5案例代码 HTML5经典中文教程大全
html5从入门到精通
含html5案例代码
HTML 5结构元素
这真是大快人心。目前，我们定义结构只能通过一个“万能”的div, 试图通过设置它的特性id的值如header, footer, sidebar等来分别表达头部，底部或者侧栏等。有了它们，代码编写者不再需要为id的命名费尽心思，对于手机、阅读器等设备更有语义的好处。HTML 5增加了新的结构元素来表达这些最常用的结构：
非常好验证码自动识别代码-C# OCR光学识别数字识别率达100 可用的验证码自动识别
非常好验证码自动识别代码-C# OCR光学识别数字识别率达100
自动识别邮政快递EMS验证码
自动识别顺风快递验证码
(亲测正确版)ASP.NET-c#-捕捉网页快照-网站截图-网站缩略图 (亲测正确版)ASP.NET-c#-捕捉网页快照-网站截图-网站缩略图
★★★★★★★★★★★★★★★★★★★★★★★★★★★
建立网站缩略图源码
网页快照ASP.NET网站截图
网页快照ASP.NET c# 输入网址获取网站图片
★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
网上流传了很多网站缩略图的asp.net,但是都无法使用，本人亲测，该代码进行优化，速度快，效率高，占内存非常少。
自己动手从0到1写嵌入式操作系统 这不是rtos源码分析的课程，而是为初级的同学设计，从基础原理讲师，一步步不断迭代设计rtos的课程！
用不到【2000行代码，汇编代码仅18行】（不含注释）实现一个精巧的可以运行在ARM Cortex-M内核芯片上的RTOS！
该RTOS功能与ucos类似，具体实现不同。学习之后，再去学习ucos之类的系统将没有什么问题。 1、系统地掌握RTOS的工作原理及其应用；
2、用更短的时间、更少的精力，学习RTOS相关知识；
3、设计出一个具备自己特色的RTOS。将其用作毕业设计、找工作的敲门砖；
4、提升技术水平，为升职加薪跳槽提供资本。
