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;
 

相关阅读 >>

Delphi内存映射大文件

Delphi编写iis过滤器实例

Delphi wmi获取网卡mac

Delphi tadoquery的用法

Delphi 防止程序重复执行(多种方法)

Delphi实现身份证号码15到18位升位算法

Delphi firedac fdconnection 事务

Delphi 不可移动的窗体

Delphi 如何从url提取文件名？

Delphi 阿里云发送短信的Delphi单元

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

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