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 给 tcombobox 添加图标

Delphi xe 应用程序横竖屏设置

Delphi 截图函数screenshot

Delphi中inputbox 和inputquery 函数的使用

Delphi scrollbox1滚动框鼠标滚轮

Delphi的initialization和finalization

Delphi 磁盘类型 getdrivetype

Delphi udp文件传输

Delphi 用iisreset命令重启iis

Delphi 自带单元字符md5加密

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

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