社区
Delphi
帖子详情
在From中如何实现消息?在线等
wukang
2003-08-22 11:57:16
这是在VC中的表示
BOOL CTack:PreTranslateMessage(MSG* pMsg)
{
return CDialog::PreTranslateMessage(pMsg);
}
在DELPHI中如何实现呢?
我主要是想根据1个状态值来判定是否开启一个菜单,用消息机制就简单些,不用在每个需要的地方都写上语句
...全文
27
10
打赏
收藏
在From中如何实现消息?在线等
这是在VC中的表示 BOOL CTack:PreTranslateMessage(MSG* pMsg) { return CDialog::PreTranslateMessage(pMsg); } 在DELPHI中如何实现呢? 我主要是想根据1个状态值来判定是否开启一个菜单,用消息机制就简单些,不用在每个需要的地方都写上语句
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
10 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
DWGZ
2003-08-22
打赏
举报
回复
怎么行不能
procedure TForm1.Action1Update(Sender: TObject);
begin
TAction(Sender).Checked := yourcheck
end;
wukang
2003-08-22
打赏
举报
回复
???
duxin
2003-08-22
打赏
举报
回复
靠 怎么来回复不了
用zjqyb()的方法 替换掉他
在自己的过程中 写明要做的处理 (不过Application.OnMessage 只检索消息队列的)
Application.OnMessage:=form1.xxxxx
wukang
2003-08-22
打赏
举报
回复
check:Boolean;
if check then
Menu1.Enable:=true;
else
Menu1.Enable:=false;
check在程序中我是动态改变的,我想我的Menu1的启用也是动态的
然后楼上的朋友提的方案我试了一下,行不通,有别的方法吗?
zjqyb
2003-08-22
打赏
举报
回复
替换Application.OnMessage
DWGZ
2003-08-22
打赏
举报
回复
用Action
procedure TForm1.Action1Update(Sender: TObject);
begin
TAction(Sender).Enable := 你的判断
end;
控件的Action设置一下OK
GreenWaterBlueSky
2003-08-22
打赏
举报
回复
楼上的,好象消息都是用procedure吧
MMisLady
2003-08-22
打赏
举报
回复
用Sendmessage或PostMessage发消息然后如下处理
function PreTranslateMessage(Msg: Tmessage):Tmessage
begin
if Msg.msg=1 then
.........
end;
mrtxc
2003-08-22
打赏
举报
回复
对啊, DWGZ() 的方法可以呀,我也经常这样做
wukang
2003-08-22
打赏
举报
回复
两个问题都已解决,呵呵,3X各位
OpenGL-自主高性能三维GIS平台架构与
实现
-第二季
OpenGL-自主高性能三维GIS平台架构与
实现
/第二季:
实现
三维GIS球体+ 高程数据章节名称DEM基础1DEM基础知识1.介绍基本的DEM知识2.什么是DEM,作用是什么2DEM数据1.如何获取/ 传统测量/激光扫描/无人机测量/ 点云数据/ 倾斜摄影2.如何使用/局部小规模(栅格数据,图片/tif),3. 组织方式4. 根据使用目的不同,介绍多种优化方法3DEM图层的
实现
原理14DEM数据结构定义struct V3U3N4顶点数据的生成和计算WGS84投影计算5wgs84 投影球体被切成一个个小圆弧,一共60个投影带,分别为01,02.........60WGS的最新版本为WGS 84(也称作WGS 1984、EPSG:4326),1984年定义、最后修订于2004年。接口定义坐标转换Wgs84 数据加载6瓦片编号计算生成算法1. 经纬度到大地坐标的转换2.大地坐标到经纬度坐标转换3. 根据经纬度获取瓦片编号框架重构7智能指针重构框架1. 基类定义(所有的类继承自基类),基类派生自 std::enbale_shared_from_this2.
实现
智能指针的动态转换接口3.
实现
向下转换4. 已有的类
实现
全部使用智能指针重构5. 任务系统(多线程加载任务)8引入图层(Layer)1. 介绍图层的概念以及重要性2. 图层类
实现
3. 修改框架(使用图层的方式重构框架)9Layer-bug排查(绘制过程
中
出现错位,偶发)1. 框架重构后遇到问题(绘制结果错误)2. 瓦片索引方式发生变化,多线程
中
引起内存问题3. 修改索引方式,解决绘制偶发错误问题10引入数据源(TileSource)1. 数据源的作用与设计目的2. 当前存在的问题,数据调度
中
存在问题3. 数据源(TileSource)类
实现
11数据格式管理(FormatMgr)1. 数据格式管理(FormatMgr) 提出的目的,需要解决的问题2. CELLFormat基类接口抽象3.
实现
几个标准格式类4. 修改框架流程,使用FormatMgr重构流程5. 扩展支持,后续支持任务格式数据加入系统12Task(任务)优化1. 任务
中
低耦合数据结构,目的是让Task更加的通用2. 修改任务读取代码与任务处理代码,完善处理流程DEM高程13DEM-数字高程定义1. 什么是数字化高程数据2. 当下GIS系统
中
有哪些常见的高程格式3. 课程体体系
中
使用的哪种格式4. 高程类定义以及
实现
,并加入到FormatMgr 管理系统
中
14高程瓦片数据读取1. 介绍GIS系统相关的工具(在数据转换)数据生成方面可以解决大量时间2. 自定义高程瓦片格式说明3. 自定义高程格式文件解析,并以智能对象的方式引入到系统
中
4. 完善框架代码,适配高程数据15高程瓦片文件的读取1.
实现
基本的读取算法2. 增加格式化组件,并加入到系统
中
3. 配置高程图层以及高程数据源,并加载数据,验证数据正确性16瓦片数据结构重构1.顶点生成2.UV坐标计算3.面数据生成17DEM重构绘制流程1. 修改绘制数据结构,去除无用字段2. 增加Mesh类,
实现
光栅数据转换成三角面数据,计算UV数据,提炼接口3. 修改系统调度,
实现
顶点数据,UV数据,以及面数据的生成与更新4. 按需更新数据,而不是每一帧更新18DEM-数据精度问题(CPU)1. 因为瓦片数据使用大地坐标作为系统输入,造成瓦片坐标很大,单浮点数据精度不够2. 使用局部坐标的方式解决单浮点精度问题3. 调整相机参数,解决投影矩阵数据计算深度精度问题4. 修改绘制shader
实现
对瓦片数据的绘制19DEM-数据精度问题(LogDepth)1. 使用对数深度(log depth )算法在GPU
中
计算解决单浮点经纬计算问题2. 修改shader ,增加对(logDepth)算法支持3. 修改C++端代码,
实现
对shader数据的输入20DEM-数据结构优化1.当下使用CPU端数据通过接口的方式传递给GPU,速度慢2. 使用Instance 方式降低Vertex Buffer 的大小,优化渲染系统21DEM-GPU缓冲区优化1. 使用Vertex Buffer Object / Index Buffer Object / Instance 方式优化渲染系统2. 修改绘制接口,使用DrawElementsInstanceBaseInstance方式提升系统性能内存池与对象池22瓦片生成优化/对象池1. 相机移动过程
中
会频繁的建立与释放瓦片,对CPU有较大的消耗2. 引入内存池,避免频繁的内存申请与释放,降低CPU时间3. 改造智能指针对象,对象释放通知到内存管理,回收对象内存23改造任务系统支持对象池1. 任务系统是一个公用模块,被多个模块使用,避免频繁的内存操作,引起的内存碎片2.
实现
对象池,并应用到任务模块法线计算24法线计算1. 修改现有顶点结构,增加法线支持2. 修改shader,增加法线顶点输入,使用平行光光照模型3. 修改绘制流程,支持光照计算,使用探照灯作为光源输入25顶点法线计算/共享法线计算1. 增加数据结构保存顶点数据被多个面共享的次数2. 计算面法线,并累加到顶点法线
中
3. 根据顶点被面共享的次数做平均法线计算4. 修改流程,按需更新法线数据26法线数据压缩1. 法线数据使用3 * float 数据存储,大大的增加了系统的数据2.
实现
算法,将3 * float 数据压缩成4字节数据3. 改造绘制代码,支持压缩数据输入27GPU
中
计算产生法线数据(去掉CPU
中
计算)1. 引擎支持 Geometry Shader 阶段2. 编写 Geometry Shader,
实现
法线计算系统功能优化28重构CPU拾取流程1. 当下的拾取流程,只支撑二维数据拾取,无法准群的拾取三维数据2. Terrain
中
增加拾取接口,输入射线,输出拾取到顶点数据29绘制拾取结果1. 增加一个绘制点的方法,
实现
绘制代码2. 修改shader,增加logdepth3. 调试代码,花费了很多时间排查错误,最总排查到是因为uniform参数笔误写错造成。30任务系统完善,避免任务队列无线膨胀1. 任务系统
中
,没有限制队列的大小,生产者的能力远大于消费者的能力,造成任务队列膨胀2. 处理办法,限制生产者的生产能力,而不是限制任务队列大小(这种方式会造成业务逻辑异常复杂)3. 使用sleep休眠方式(这种方式是严重错误的)31如何避免瓦片数据抖动1. 产生瓦片抖动的原因 ? 分裂算法与回退算法
中
间没有过度2. 引入过度流程,避免内存抖动,参数因子是一个重要的数据,需要谨慎使用3. 有必要结合瓦片自身数据动态计算参数因子32瓦片数据管理-fepk文件格式支持-全球数据加载1. 支持fepk文件格式,增加fepk读取组件,适配fepk文件2. fepk管理数据方式:一般情况选择全球前10级别作为基础级别,因数据量不大(1G)左右,后续以8级作为基础级别,全球19级别数据被划分为 2^8 * 2^7(512 * 256)个块。每个块
中
包含了256 * 256 张小瓦片33fepk高程数据读取 34高程分裂处理当瓦片没有高程数据,那么子节点以及其他后代节点该如何共享父节点的数据35lesson-734-高程瓦片分裂处理(2)-算法
实现
高程数据分裂算法
实现
实现
对高程数据的切分,并对特殊数据进行处理36高程瓦片分裂处理(3)-问题排查 37高程瓦片分裂处理(4)-(后代节点更新问题)当一个瓦片高程数据更新后,他的儿子节点,孙子节点...该如何处理?38瓦片视锥裁剪错误高程数据更新后,没有技术计算瓦片包围盒信息,造成包围盒错误,进而引视锥计算错误39http支持1.引入三方库 Libcurl2.http类封装,支持http读取数据40fepk.server使用 生成三维地球41改造四叉树-统一使用经纬度输入42地形网络生成算法重构 43引入球体坐标系 44使用球体坐标改造瓦片 45多图层(加载标签数据) 课时截图:镜头拉近后,显示细节数据加载矢量SHP国界线数据:加载矢量三维白膜数据截图高程数据加载点云数据 加载倾斜摄影数据
微信小程序
消息
推送功能
实现
详解
在小程序开发
中
,如果想
实现
:用户发给小程序的
消息
以及开发者需要的事件推送,在小程序项目
中
,我们想要
实现
这样一个功能, 比如我们小程序
中
的客服功能,我不想要使用小程序后台的
在线
客服功能,但我又想
实现
客服功能,这个时候微信提供了
消息
推送功能,在小程序后台的设置,开发设置
中
,
消息
推送功能: 点击开启
消息
推送功能,认证成功进入到
消息
推送配置界面: 这里配置几个参数注意一下: URL(服务器.........
【编程实践】Redis 如何
实现
消息
队列?如何怎么保证顺序消费以及消费不丢失?
利用 Redis
实现
消息
队列可以通过使用 List,发布订阅或有序集合等数据结构和命令。保证
消息
顺序消费可以通过利用列表的有序特性以及分区消费策略。防止消费不丢失主要通过数据持久化、
消息
确认机制、增加消费者监控、重试机制以及使用 Redis 集群来
实现
。根据不同应用场景的需求,可因地制宜地选用相应的数据结构、消费策略以及故障处理机制,
实现
高效、有序的
消息
队列。
javaweb
实现
即时
消息
推送功能
在浏览某些网页的时候,例如 WebQQ、京东
在线
客服服务、CSDN私信
消息
等类似的情况下,我们可以在网页上进行
在线
聊天,或者即时
消息
的收取与回复,可见,这种功能的需求由来已久,并且应用广泛。 网上关于这方面的文章也能搜到一大堆,不过基本上都是理论,真正能够运行的代码很少,原理性的东西我就不当搬运工了,本文主要是贴示例代码,最多在代码
中
穿插一点便于理解,本文主要的示例代码基于 javascri
Vue项目
中
,在js文件
中
使用ElementUi
实现
消息
提示
今天在做项目时候遇到一个问题。当我在封装一个前端工具类js文件时,想使用的组件来
实现
消息
提示。
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章