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;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.049979209899902 seconds