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中的record怎么动态分配内存？

Delphi dbexpress的upwherekeyonly的使用注意事项

Delphi application.processmessages

Delphi 判断 文本文件 utf-8 bom头

Delphi dbgrid 表格自适应宽度

Delphi for 循环 downto用法

Delphi tms web core webhttprequest1 解析json

Delphi xe8在firemonkey tlistbox中显示图像

Delphi 用dbexpress处理jpg图片

Delphi 2009 新增单元 character[1]: toupper、tolower - 字符与字符串的大小写转换

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

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