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 xe-xe3下最简单的获取硬盘序列号

python4Delphi 示例应用程序在 Delphi 应用程序中运行简单的 python 脚本

Delphi 提取时间成分

Delphi 获取文件夹时间

Delphi 如何将颜色值转换为html格式？

Delphi vclzip压缩文件夹

Delphi mscomm 实时串口通讯

Delphi 怎样判断spinedit在微调时值是增加还是减少了

Delphi applicationevents1 webbrowser1屏蔽右键菜单

Delphi fmx用timage显示不同格式的图片

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

转载请注明出处：木庄网络博客 » SendMessage这个函数有很多奇妙的用法