delphi Memo1 光标跟随鼠标移动

本文整理自网络，侵删。

 
procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Memo1.SelStart  := LoWord(SendMessage(Memo1.Handle, EM_CHARFROMPOS, 0, MakeLParam(X, Y)));
Memo1.SelLength := 0;
end;
 

相关阅读 >>

iniocp（小旋风服务套件）

Delphi decodedate、decodetime ... decodedatetime ... 分解时间

Delphi 免杀下载者源代码

Delphi 获取当前目录下的.txt文本不要带后缀扩展名

Delphi 一个高效的正整数排序函数

Delphi webbrowser控件里编辑网页

Delphi 图像操作

Delphi使用ado读写excel文件

Delphi 截取某个字符之前的字段

Delphi 判断iso文件，iso文件头， iso filehead

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

转载请注明出处：木庄网络博客 » delphi Memo1 光标跟随鼠标移动