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 利用hook api函数openprocess与terminateprocess来防止任务管理器结束进程

Delphi 链接转换为本地文件路径

Delphi 中的哈希表: thashedstringlist

Delphi copyrect实现的几个图片的转换效果

Delphi瞬间消除无用托盘图标(刷新托盘)

Delphi操作unicode字符

Delphi程序支持外部参数

Delphi 判断字符串是否相同

Delphi fdconnection1.gettablenames 查看所有表包含用户表和系统表

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

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