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程序将自身可执行文件拷贝到u盘的代码

Delphi trayicon1如何把窗体关闭到系统托盘

dephi获取系统常量

Delphi 如何取得系统中的桌面的路径

Delphi 调用外部 dll 中的函数(1. 早绑定)

Delphi 提取字符串左侧内容

Delphi idhttp友好错误信息的捕获

Delphi保存网页中的图片

Delphi 字符串去掉最后一个字符

Delphi下的纯pascal的十六进制转十进制

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

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