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 2009 中 tstrings 与 tstream 的增强

Delphi 不可移动的窗体

Delphi文件操作的一些函数

Delphi 的 tstringbuilder 可以完美实现jave ,c#的tstringbuilder功能

Delphi中强制idhttp使用http1.1

Delphi10.2.3实现http异步下载

Delphi xe5 android 解决ide真机调试不起问题

Delphi 获取鼠标当前位置的相对坐标

Delphi 收集了比较全的字符串进制转换

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

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