Delphi 如何在TMemo，TEdit或TRichEdit中获得插入符的位置

本文整理自网络，侵删。

 TRichEdit:
var  pt: TPoint;begin  with richedit1 do  begin    Perform(messages.EM_POSFROMCHAR, WPARAM(@pt), selstart);    label1.caption := Format('(%d, %d)', [pt.x, pt.y]);  end;end;TMemo and TEdit
var  r: LongInt;begin  with memo1 do  begin    r := Perform(messages.EM_POSFROMCHAR, selstart, 0);    if r >= 0 then    begin      label1.caption := IntToStr(HiWord(r));      label2.caption := IntToStr(LoWord(r));    end;    end;end; 

相关阅读 >>

Delphi 链接转换为本地文件路径

Delphi seek函数中参数说明

Delphi剪切板-监视剪贴板

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

Delphi 获取窗体坐标

Delphi sysem.json 链式写法

delph 自带url编码函数 tnetencoding

Delphi 创建应用程序的快捷方式

Delphi的字符截取函数leftstr,midstr,rightstr的介绍以及字符串拆分

Delphi xe 遍历指定数据库，清空各表记录

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