lpTimerProc: Pointer;
begin
lpTimerProc := Pointer(@Self.OnScrollTimer);
end;
错误如下：
[Error] _Bxxxxx.pas(865): Variable required
-
var
lpTimerProc: Pointer;
begin
lpTimerProc := Pointer(@Self.OnScrollTimer);
end;
错误如下：
[Error] _Bxxxxx.pas(865): Variable required展开阅读全文
-
等级
本版专家分：520勋章
-
- 红花 2000年9月 VB大版内专家分月排行榜第一
-
- 蓝花 2000年12月 VB大版内专家分月排行榜第三
-
-
如果把OnScrollTimer作为全局的函数，则lpTimerProc := Pointer(@OnScrollTimer); 是可以的
可是我不想弄为全局的，因为我需要Self的指针值。
或者谁知道如果在SetTimer()时传递一个结构的地址给OnScrollTimer，如果OnScrollTimer为全局的，我必须向办法把Self的地址传给OnScrollTimer。如果@Self.OnScrollTimer可行，就不必传了。该怎么弄？
原始的代码如下：
lpTimerProc := Pointer(@Self.OnScrollTimer);
nIDTimer := SetTimer(hwndWB, IDT_SCROLL_TIMER, SCROLL_INTERVAL_TIME, lpTimerProc);
if nIDTimer <> 0 then
begin
....
end;
-
等级
本版专家分：10650 -
lpTimerProc := Pointer(Self.OnScrollTimer);应该就可以了吧！
-
等级
本版专家分：520勋章
-
- 红花 2000年9月 VB大版内专家分月排行榜第一
-
- 蓝花 2000年12月 VB大版内专家分月排行榜第三
-
-
还是错的
[Error] _BrowserHelp.pas(865): Not enough actual parameters
也许我知道怎么做了，申明一个函数指针类型
-
等级
本版专家分：520勋章
-
- 红花 2000年9月 VB大版内专家分月排行榜第一
-
- 蓝花 2000年12月 VB大版内专家分月排行榜第三
-
-
还是不行，难道无法取得实现的成员函数的地址？？
-
等级
本版专家分：26949勋章
-
-
蓝花
2012年12月 Delphi大版内专家分月排行榜第三
2012年11月 Delphi大版内专家分月排行榜第三
-
-
var
P : Pointer;
begin
P := TMethod(Self.OnScrollTimer).Code;
end;
-
等级
本版专家分：26949勋章
-
-
蓝花
2012年12月 Delphi大版内专家分月排行榜第三
2012年11月 Delphi大版内专家分月排行榜第三
-
-
但是成员函数的指针和一般的Procedure/Function不一样。值得注意。
-
等级
本版专家分：520勋章
-
- 红花 2000年9月 VB大版内专家分月排行榜第一
-
- 蓝花 2000年12月 VB大版内专家分月排行榜第三
-
-
还是不行
[Error] _BrowserHelp.pas(899): Invalid typecast
-
等级
本版专家分：26949勋章
-
-
蓝花
2012年12月 Delphi大版内专家分月排行榜第三
2012年11月 Delphi大版内专家分月排行榜第三
-
-
//晕，我这里可以啊。
var
P : Pointer;
begin
P := TMethod(Self.OnMouseMove).Code;
end;
你的OnScrollTimer是个什么样子的过程？
-
等级
本版专家分：520勋章
-
- 红花 2000年9月 VB大版内专家分月排行榜第一
-
- 蓝花 2000年12月 VB大版内专家分月排行榜第三
-
-
procedure TBrxxxxx.OnScrollTimer(uMsg: UINT; idEvent: UINT; dwTime: DWORD); stdcall;
我试试你的
-
等级
本版专家分：9350 -
Type
TOnScrollTimerEvent=Procedure (Value:Integer) of object;
TTest_Obj=Class
procedure OnScrollTimer(Value:Integer);
end;
vea
AOnScrollTimer:TOnScrollTimerEvent;
begin
AOnScrollTimer:=Self.OnScrollTimer;
end;
- 高手大家帮忙啊!看看这个值怎么取出来判断?
看看这个值怎么取出来判断? Delphi / Windows SDK/APIhttp://www.delphi2007.net/DelphiDB/html/delphi_20061225142811116.html self.LJBQuery.Close; self.LJBQuery.SQL.Clear; self.LJBQuery.SQL.Tex...
- matlab中一组数取百分位数_一段计算分位数的程序，哪位帮忙看看。
function qth=quantle(p)A=-5;M2=100;qth=0;for i=1:length(k)for j=1:M2B=A+j*(0-A)/M2;if simprl(gst(B),A,B)-P<=0.00001qth(i)=B;breakendendqth;function s=simprl(f,a,b)M1=10000h=(b-1)/(2*M1);...
- [Python图像处理] 二十二.Python图像傅里叶变换原理及实现
前面一篇文章我讲解了Python图像...同时，该部分知识均为杨秀璋查阅资料撰写，转载请署名CSDN+杨秀璋及原地址出处，谢谢！！ 1.图像傅里叶变换 2.Numpy实现傅里叶变换 3.Numpy实现傅里叶逆变换 4.OpenCV实现傅里叶变换
- 你们认为子女买房父母不帮忙是很主流很正确的吗？
发信站: 北邮人论坛 (Mon Aug 24...为什么我却感觉这是一帮站着说话不腰疼的人呢？1.大学毕业后不再要父母一分钱，自己成家立业，打拼几年到十几年后过上中产阶级及更好的生活，这绝对值得佩服，做大家的励志偶像。2.正
- 大家帮忙看看这个代码，除法溢出，帮忙修改下，谢谢
功能:进行不会溢出的除法运算，被除数为dword 型,除数为word型,结果为dword型。 ;参数: 1.(ax) = dword 型数据的低16位 ; 2.(dx) = dword 型数据的高16位 ; 3.(cx) = 除数 ;返回值: (dx) = 结果...
- mysql中实现三维数组_请教一下高手：如何使用JAVA从MYSQL数据库读取数据，并...谢谢~~~帮忙看一下代码谢谢...
packageapr;importjava.sql.*;importjava.util.ArrayList;publicclassConn{publicstaticvoidmain(Stringargs[]){try{Class.forName(...//加载MYSQLJDBC驱动程序...package apr;import java.sql.*;im...
- 帮忙看看这个程序出了什么问题
void matrix::operate(int mode,matrix m1,matrix m2) //运算函数，mode=1代表加，mode=-1代表减，m1,m2为待处理矩阵 { int x,y; for(y=0;y;y++) { for(x=0;x;x++) { num[x][y]=m1.get_num(x...
- 2018年泰迪杯心得总结--最全的数学建模、数据挖掘的比赛入门
2018年泰迪杯总结——最全的数学建模、数据挖掘比赛入门 期待已久的泰迪杯数据挖掘比赛从3月1日开启到今天4月15日已经结束了，不同于美赛等数学建模比赛，它耗时更长，赛题难度更大，需要处理的数据更加庞大（奖金...
- I/O操作为什么不需要cpu
简单回答就是：不是不需要是需要很少 IO所需要的CPU资源非常少。大部分工作是分派给DMA完成的。 先不谈传统的5大IO模型，先说说并发（Concurrence）。一个非常不严谨的解释就是同时做A和B两件事。先做一会儿进程A，...
- 不同的SQL平台，如何取前百分之N的记录？
击关注上方“SQL数据库开发”，设为“置顶或星标”，第一时间送达干货SQL专栏SQL基础知识第二版SQL高级知识第二版最近帮业务部门梳理业务报表，其中有个需求是就算某指标等待时间最长的前百...
- [文摘20160524]为什么你的孩子不像德国孩子那样自律？看过这个就知道怎么做了！...
最近，很多家长都在看一篇文章《没有人会告诉你，你的孩子没礼貌》。 文中说到：前几天参加了一个婚宴，婚宴的桌上有一个孩子，那孩子很没有礼貌，把转盘转得忽悠忽悠的。一席下来，家长没有阻止自己的孩子，大家...
- ibatits中动态查询sql问题，请大家帮忙看看，谢谢非常~
在ibatis配置文件中采用如下形式实现： <select id="executeQuerySQL" parameterClass="java.lang.String" resultClass="java.util.HashMap"> ...现在老是报“列名无效”的错误，请哪位帮忙看看啊，太感谢了~
- 这个人好厉害，几张图就讲清楚了华为为什么弄不了OKR？
好吧，言归正传，这是一篇讲OKR的文章，我想了好久，弄了几个简单的例子，终于厘清了OKR到底是啥，为啥Google辣么成功。 什么是OKR？ 参考：https://objectives-key-results.com/ 说明，这是一个商业公司出的网站...
- left join 多条件_为什么 SQL 语句不要过多的 join？
我：有的呀面试官：我想查看内存的使用情况该用什么命令我：free 或者 top面试官：那你说一下用free命令都可以看到啥信息我：那，如下图所示 可以看到内存以及缓存的使用情况total 总内存used 已用内存free 空闲内存...
- 我们为什么要学习？写给我的组员们
大家毕业之后各奔东西，天南海北，想要再聚一次真的很不容易。昨天终于实现了。看着曾经并肩作战了四年的兄弟们，心中思绪万千，努力回忆着大学里的那些人和事。晚上和大家伙吃了饭道别已经快0点了，打车回高新。...
- 为什么我放弃近千万期权离开贝壳找房？
点击蓝字关注，回复“职级”获取知名互联网公司职级定义每月开展上个月读者阅读、转发、在看、留言各前三名（冠、亚、季军）评选活动，次月初开奖！欢迎参加，有惊喜。我从饿了么离开之后，加入了贝壳...
- 牛逼哄哄的布隆过滤器，到底有什么用？
不知道从什么时候开始，本来默默无闻的布隆过滤器一下子名声大燥，仿佛身在互联网，做着开发的，无人不知，无人不晓，哪怕对技术不是很关心的小伙伴也听过它的名号。 我也花了不少时间去研究布隆过滤器，看了不少...
- 为什么说解耦的战术，决定了架构的高度？[转]
原创2017-11-13沈剑DBAplus社群 本文根据沈剑老师在〖Gdevops 2017全球敏捷运维峰会北京站〗现场演讲内容整理而成。 ...曾任百度高级工程师、58同城高级架构师、58同城技术委员会主席、58同城C2C技术部负责人。...
- 同样是开发，为什么你不如别人？
2020年由于疫情的影响，大批量的公司破产倒闭，即使能坚持下来的，...那么问题来了，同样是开发，为什么你不如别人？如何才能让自己变得更加优秀？下面我将从三个方面阐述我的思考。 做事的艺术 在工作中，我们可能会.
- 转自腾讯空间的文章看了心里有说不…
吃饭的时候我仍是不停的咳嗽，哥看的皱眉，“东子这家伙也是，我喝醉了不知道把我送回宿舍，把我往你那送，不知道该说他什么好。” 我飞快的瞟了一眼哥，接着低头吃面，“东子说是你非要来找我的。” 哥半天没吭声，...
- 前端怎么分次取上万条数据_为什么都觉得前端没技术含量
人类的本能就是对不了解的事物胡乱判断，尤其是现在信息发达，随处可以发表自己的看法，就显得这样的声音到处都是。那么，既然是胡乱判断，为什么不是高估而是低估呢？毕竟，客观地讲，现在的前端技术并不那么...
- VSCode launch.json配置详细教程
主要介绍了vscode 的node.js debugger 的 launch.json 配置详情,本文通过实例代码给大家介绍的非常详细，对大家的学习或工作具有一定的参考借鉴价值，需要的朋友可以参考下
- 从零基础开始用Python处理Excel数据.pdf
首先学习Python的基础知识，然后使用Python来控制Excel，做数据处理。 Excel使用者、Python爱好者、数据处理人员、办公人员等 第1章 python基础 1.1 什么是python？ 1.2 为什么要学习用Python处理Excel表格？ 1.3 手把手教你安装python程序 1.3.1 下载python 1.3.2 安装python 1.3.3 验证是否安装成功 1.4 安装Python集成开发工具PyCharm 1.4.1 下载 1.4.2 安装 1.5 Python的输入与输出