delphi SendMessage这个函数有很多奇妙的用途


本文整理自网络,侵删。

 SendMessage这个函数有很多奇妙的用途 
举例:
1,获得MEMO中的光标位置.
Lops:=SendMessage(memol.Handle,EM_LINEFROMCHAR,Memol.SelStart,0);//光标所在的行号
Cpos:=SendMessage(meno1.Handle,EM_LINEINDEX,Lpos,0);//光标所在的字符位置
LineLength:=SendMessage(memol.handle,EM_LINELENGTH,Cpos,0);//这行的字符数.
2,开关显示器.
SendMessage(Handle, WM_SYSCOMMAND, SC_MONITORPOWER,2);//关闭显示器.
SendMessage(Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);//打开显示器.
3,有人问我如何让Memo翻页,我试了一下,
Next:
sendmessage(memo1.handle,wm_keydown,VK_NEXT,-1);
sendmessage(memo1.handle,wm_keyup,VK_NEXT,-1);
Prev:
sendmessage(memo1.handle,wm_keydown,VK_PRIOR,-1);
sendmessage(memo1.handle,wm_keyup,VK_PRIOR,-1);

相关阅读 >>

Delphi 让程序支持外来文件拖放的单元文件

Delphi xe 如何实现("再按一次退出") 然后退出程序

Delphi firemonkey app 如何获得当前系统语言设置

Delphi10.3通过rest单元使类和json数据互相转换

Delphi memo1自动循环上下滚屏

Delphi获得硬盘所有分区

Delphi中几种注释方法

adoquery 实现获取数据库所有表名

Delphi遍历所有控件

Delphi使用idhttp 获取 httpsurl内容

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...