说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

消息处理:怎样捕获TEDIT的EN_CHANGE的消息?

编辑:说三道四文库 发布时间:2017-01-23 02:25
HTML文档下载 WORD文档下载 PDF文档下载
我现在学消息处理问题碰到一个难题:
    一个FORM1中有EDIT1,我怎样捕获EDIT1的EN_CHANGE的消息并进行事件处理。我不想用EDIT1.ONCHANGE来处理。希望详细说明,

OldProc := SetWindowLong(Edit1.Handle, GWL_WNDPROC, @YourProcedure);

procedure yourprocedure(h: hwnd; msg: longword; wparam,lparam: longint)
begin
  if msg = en_change then
    doyourproc
  else
    odlproc(h, msg, wparam, lparam);
end;
不行,可能是我笨,我不知以下这句放在 单元中的哪个地方?
OldProc := SetWindowLong(Edit1.Handle, GWL_WNDPROC, @YourProcedure);
FormCreate
自己继承一个
我再试一回,在《D5开发人员指南》有这样的例子,多谢BaldZhang(BaldZhang)提醒 !
to BaldZhang(BaldZhang) 不通呀!
下面这行编译出错:Variable required,就是因为这个操作不行:@YourProcedure
OldProc := SetWindowLong(Edit1.Handle, GWL_WNDPROC, @YourProcedure);
您能POST个完整的单元例子吗?

另:用function yourprocedure(h: hwnd; msg: longword; wparam,lparam: longint):longint;stdcall;
以上oldproc:=  通过,但没法捕捉edit1.的消息。



英雄会晚宴,Top开发者共聚“华山之巅” 【MDCC 2015】产品与设计专场(上):百度研究院、印象笔记等专家齐聚,以实例探讨如何打造好产品 【MDCC 2015】产品与设计专场(下):网易云音乐、在行、三节课、去哪儿网、野兽骑行大咖的产品之路 友盟:把数据用活 让开发者享受大数据红利 友盟:用活大数据 让精细化运营为移动开发者服务 携手世纪互联 IBM Bluemix云平台落地中国 【MDCC 2015】IoT峰会—硬件开发与技术专场(下):专家齐聚,共同打造联网新时代 【MDCC 2015】虚拟现实专场(下):虚拟现实的“困”与“竞” 【CTO讲堂】面对世界竞争对手,如何拿到Google PDF开源项目PDFium? 提升网站性能开发的10个技巧 SDCC 2015:顶尖技术精英云集 大会日程及首批讲师议题公布 《近匠》专访猿团创始人CEO谢恩明:梦想、未来、改变 《近匠》专访小熊尼奥:从软硬结合到IP合作,AR产品的机遇 W3C启动Web支付标准工作,推进在线结算流程 W3C中国区会员沙龙在京召开 W3C CEO Jeff分享W3C未来发展重点 【SDCC讲师专访】车轮互联总架构师韩天峰:PHP是最好的编程语言 SDCC 2015讲师专访精彩集锦(一):你想知道的,都在这! (入门篇)带你走进Erlang 【大神来了】Elixir语言设计者José Valim:释放Erlang VM的能量 【SDCC 2015讲师专访】刘小溪:Vert.x3的异步框架实战 【CTO讲堂】支付接入开发的陷阱有多深? 程序员界“香饽饽”、大神级别人物集体亮相——SDCC 2015编程语言专场议题曝光 【CTO沙龙】CDN在共享经济下的创新应用 深入浅出Fetch API 带你入解应用场景及适用问题 SDCC 2015讲师专访精彩集锦(二):途牛网、饿了么、快的等大牛都来了 百度、饿了么、美团专家齐聚SDCC2015,剖析前端开发核心技术 【SDCC讲师专访】百度乔刚:前端可视化难点分析及探索实践 【CTO讲堂】Growth Hacking背后,数据分析平台的架构调整 BAT、巨杉、南大、柏睿等齐聚SDCC—新一代数据库专场议题曝光! 《近匠》BeeCloud创始人黄君贤:三行代码集成支付的技术实现 【SDCC讲师专访】AdMaster技术副总裁卢亿雷:分布式数据库挑战与分析 用INSERT ROW在表格中插入记录 关于CTreeCtrl的SortChildrenCB函数调用的问题 求教将文本格式化输出的代码 急需英文WIN2K+多国语言版, 各位专家们,可知道Acer的笔记本用的可是台式CPU? leeyansheng(风妖精) 在不在???刚看见你。怎么还没睡? 请教:我安装完flashget后,可是我要下载文件时,点击时默认的不是flashget,还是一般下载的那种,不知道该如何解决?急 请问为什么不能在dns中创建新区域 怎样控制键盘灯 OK,过足疯瘾了,开始 CODE 那位好心人介绍几本关于 java 的书? 急!!!各位高手,能否帮忙做个流程图,谢谢各位! 如何做一个真正的屏保? 中文Win2000与中文win98在使用CDC::Arc上有什么不同吗? 如何完全控制鼠标 35分任你拿 skyyoung 、 kookoo 、 BrentIvan 、 mshy 四位大虾,请留下email,小弟有要事好事通知! C#适用于开发大型的应用系统吗? 哪位有二手笔记本卖 孤独大哥还在吗?有人找! 请教一个高级问题!!! 怎样把帮助文件(.hlp)转换为和执行文件(.exe)。 关于ACCESS用SQL SUM的问题 怎样在csdn发布自己的软件 谢谢大家的回复.我已经知道可以建立个autorun.ini的文件.内容为(但是还有一个问题...) 菜鸟问题:如何删除一个里面有文件的目录? 我的大梦 API初学者的问题!!帮帮忙!!谢了!!! 那里有《ATL开发指南》第二版 电子工业出版社 下载(高分) 本人编制了一份“使用BCB5进行多国语言开发”的文档,希望对大家有用 ==================月薪8百,招聘VC通讯编程高手72名,要求待遇进来看.============== 展示程序,有原码,只邮前50个。 不对啊!是不是电脑报出错了?? win2000菜鸟问题. 那种包月可比较合算? 变量累加奇怪,奇怪,奇怪!!! 有什么办法能刻录一个大于一张光盘的文件到两个光盘,且拷贝回硬盘时能自动提示插入下一张碟,使文件还原? 用delphi5.0写的ISAPIAPP的程序,上传到INTERNET服务器后数据库的访问路径如何设置? puffdream(911) 同志请进 一个关于api函数的问题? 紧急求助:如何去掉PDF的打印限制 用什么编辑器? JInternalFrame!!!!!!!!!!!!为什么!!!!!!!!!!! 一个关于DrawGrid和Ansistring的问题 想学VC++从哪开始,API、MFC、VC6 如何去掉PDF的打印限制 ---------管理员!管理员!csdn的广告条上那个"波斯猫"mm是谁?----------------- 我在用HelpBuilder写帮助的时候总是提示该主题不存在的错误...? 装上proxy client后为什么SQL explorer连不上数据库 如何让vb中的自定义控件在不同的机器上使用 怎样加速保存一个文件? 手机短信开发的朋友请看! a的12次方减去a的6次方等于几? 4/3.4/3等于多少? 解方程(1) 1-1/3x=4 (2) 5x+1/6=x-3x-1/5怎么解答 0.25的10次方x2的20次方 1+2+3+4等于几 解方程的(1) 1-1/3x=4 (2) 5x+1/6=x-3x-1/5怎么解答 0.25的50次方×256的10次方×(-2)的20次方 5吨的3分之1等于( )的2分之1? 5(x+y)=5x+5y是___运算,3x²-3x=3x(x-1)是___变形.2009×954+2009×46能被1000整除吗? 计算(-0.25)的5次方×2的10次方 三尺六是多少厘米 matlab 入门小程序matlab初学,让我明白一下处理输入等功能的实现,就包含读取用户输入的数据比如A= 、B=、C=?,然后程序按照一个公式得到函数F(x)的表达式,比如当x>0时候,f=A*x+C,x -0.16次方怎么计算? 3尺6是多少厘米 Matlab程序求修改!n=0:256;N=length(n);xn=cos(5*pi*n/16);X=0;for m=1:1:N-1; X=x[m]*exp(-j*2*pi*k/length(n)).^n+X;endk=0:N-1;stem(length(n),X);要求用Matlab实现下面这个定义式,不能用fft,我写的代码有问题, 计算0.125的2010次方×16的2011次方/4的1006次方×5 三尺六是多长三尺六换算成厘米是多少 matlab程序有一分数序列 2/1,3/2,5/3,8/5,13/8,21/13……,求前15项和 (-0.25)的1998次方*(-4)的1999次方= 55.55m/s等于多少千米/时 求救,MATLAB程序设计期末作业第二题第三题,2、设y=cos[0.5+((3sinx)/(1+x^2))] 把x=0~2π间分为101点,画出以x为横坐标,y为纵坐标的曲线;3.设f(x)=x^5-4x^4+3x^2-2x+6取x=[-2,8]之间函数的值(取100个点),画出 (-0.25)的100次方乘4的99次方 10厘米等于多少千米 matlab程序设计,矩阵操作1)构造5X5的矩阵A,其中元素为1到25(按行排列)2)去掉A中的第4行,构造矩阵B3)去掉A中第4列,构造矩阵C4)在A中添加第6列,元素为[1 3 5 7 9]^t构造矩阵D,^t 记作右上的小T5)在A 计算:(-0.25)的100次方×(-4)的99次方是多少 米到厘米之间的倍数是多少?厘米到亳米?亳米到分米? 用matlab编程 计算机图形作业(1)简述Bezier曲线的定义和性质(2)以三次Bezier曲线为例,写出三次Bezier曲线的矩阵表达形式(3)绘制一条三次Bezier曲线 1/2+1/4+1/8+1/16+…+2的2010次方 分之一 得值等于多少? 100亳米等于多少分米? matlab程序设计问题编写程序,实现下面功能.给定一个正整数N,求最小的正整数M,使得N 乘以 M只含有0、1,另外简述一下思路, 负1的2014次方是几要列式 5002亳米等于多少米等于多少分米等于多少厘米,大哥, 请问下列MATLAB程序哪里错误clear allm=0.2;w=3;b=0.8;A=0.2;xf=dsolve('D2x=-w*w*x','Dx(0)=0,x(0)=A',''t);xd=dsolve('D2x=-2*b*Dx-w*w*x','Dx(0)=0,x(0)=A','t');t=linspace(0,8,200);xf1=eval(xf);xd1=eval(xd);hold onb=0.99*w;xd2=eval(xd);plot(t,xf1, 若(9m的次方加一)的2次方=3的16次方,求正整数m的值 3x^2-5x+1 因式分解 提示:令原式为0 看看我的MATLAB程序哪里出错了?程序如下:function yp=zhendong(t,y)global b w w1 h;yp=[y(2);-2*b*y(2)-w~2*y(1)+h*cos(w1*t);clear allglobal b w w1 h;h=0.4;A=0.2;w=0.3*pi;k=[0.1:0.01:2];w10=k*w;b1=[0.1:0.1:0.4];tspan=[0 100];y0=[A;0];optio 3×9m次方×27m次方=3的11次方 求m正确答案是2 但我算的是5 为什么 用因式分解法解方程3x(5x+1)=10x+2 求matlab大神看我的程序哪里错了额y=[100,70,60,30,20,10,10,0,0,60,40,30]’;x4=[5,10,15,5,10,15,5,10,15,5,10,15];x2=[0,0,0,0,0,0,15,15,15,20,20,20];x3=[1.5,2.5,3.5,0.5,1.5,1.3,1.2,1.5,1.2,0.9,0.7,0.9];x41=[1.75*pi,1.75*pi,1.75*pi,1.75*pi,1 m^4-9m^2+16=0的解 1+5x-3x^因式分解 帮我看看matlab程序错误function [h,q]=multioderarnoldi(A)n=1000;p=10;%端口数syms q;phi0=ones(n);phik=zeros(n);B=ones(n,p);R=inv(phi0)*B;%由上式求R,n*pK=zeros(n,p);%n*p[q0,K]=qr(R); M=4850;%多项式系统阶数q=(n-1)*p;for k=1:n-1Ak=-i 16/9m^2-4/25n^2 因式分解 5x(3x-√2)-(3√3)x+√6=0√ 为根号 MATLAB程序问题源程序:clear all;close all;n=-20*pi:pi/5:20*pi;fn=sin(n/5)/(n/5);stem(n,fn,'fill');error:X must be same length as Y.函数是:f(n)=sin(n/5)/(n/5) (-20 -3的三分之一次方除以(6的三分之4次方)的2分之三次方用幂的形式表示 3x²+5x+2=0用因式分解, 请问这段matlab程序哪里错了?clcclear allh=1;c=3*10^8; Eps0=10^-9/(36*pi);u0=4*pi*10^-7;epslona=5.5225;ua=1.0;na=epslona^0.5;a=2*pi*4.8797e-008;%a=120*7e-9;epslonb=1.9044;nb=epslonb^0.5;ub=1;b=2*pi*4.8797e-008;%ab=240*7e-9%nb=3.23;epslonb=nb^ 3个10,1个4.怎么等于24? 用因式分解法解 3x*x-5x=2 这段matlab程序怎么优化m=1;A=[0 3 5.5 7.5 9 10 10];B=[0 3 6 8 9.5 10.5 11];C=[0 4 6.5 8.5 9 9 9];D=[0 3.5 6 7.5 8.5 9 9];for i=1:7for j=1:7for k=1:7for l=1:7if i+j+k+l==10d(m)=A(i)+B(j)+C(k)+D(l);E(m,1)=i;E(m,2)=j;E(m,3)=k;E(m,4)=l;m=m+1;enden 3,8,6,9怎样等于24? 3X+8=5x-6解方程(详细一些) 请问我这段matlab程序有什么问题?x=[600 600 600 600 600 600 600 500 500 500 500 500 500 500 400 400 400 400 400 400 400 300 300 300 300 300 300 300 200 200 200 200 200 200 200];y=[4 6 8 10 12 14 16 4 6 8 10 12 14 16 4 6 8 10 12 14 16 4 6 8 8 8 3 6每个数用一次,让它们的结果等于24 0.3X+40=0.5X 怎么解谁会解 求高手帮忙看一下Matlab求积分的程序,我想求多个定积分的值,示例如下cleara=0:0.5:2;n=5;for i=1:n;fun=inline('a(i)*exp(-x*x)','x');Isim=quad(fun,0,1)end就是求不同的a的情况下的定积分的值,但每次都出错,a换 3个8和一个6怎么等于24 x-1 MATLAB问题,非常急1已知Fibonacci数列的定义如下,F(1)=1,F(2)=1,f(n)=f(n-1)+f(n-2)(n>2),求Fibonacci数列第18项.2已知矩阵三行三列矩阵A为(1,3,4,0,5,7,-3,9,25),B为(-2,0,53,13,21,-4,-1,6,19),(矩阵不好打成
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn