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 timer定时器 实现定时执行

Delphi两个取字串长度的函数strlen,length

Delphi unigui程序部署到服务器

Delphi 从一个html返回所有的图片链接

Delphi enumwindows 获取窗体句柄 进程id 窗体信息

Delphi 安卓下打开 pdf, mp4 等外部文件

Delphi 收藏字符串处理单元

Delphi 10.3.x与android 10兼容性的问题

Delphi twebbrowser静音

Delphi d10.x 安卓app开发中创建密钥库文件

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

转载请注明出处：木庄网络博客 » Delphi 如何在TMemo，TEdit或TRichEdit中获得插入符的位置