有没有那个函数可以检测到鼠标在字符串中的位置 当鼠标在EDIT上的时候,我向检测到鼠标是在那个字符上,有没有这样的函数 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);var p: Integer;begin // 发送EM_CHARFROMPOS消息取当前鼠标所指字符位置 p := Edit1.Perform(EM_CHARFROMPOS, 0, MakeLParam(X, Y)); // 当前字符 Caption := Copy(Edit1.Text, p, 1); end; Delphi语言开发教程——软件开发的形体与魂魄 在delphi中如何向oracle中存入照片? 如何做出SDI下的分割窗口,象Outlook那样? 绝对的智力题,据说是世界上目前最好的智力题目 如何使某目录不能被删除? delphi7 的DBEXPRESS问题 怎样获得ListView1选中列的值? 在线等待,怎样获得指定文件夹下的文件和文件夹的个数和名称 ADO TABLE 中的DATAFIELD 的验证 谁能帮我举个例子说说xor的用法,谢谢! delphi5和delphi7能否共存? Indy+FTP+REST+奇怪的令人搞不懂:等待高手指点迷津
Y: Integer);
var p: Integer;
begin
// 发送EM_CHARFROMPOS消息取当前鼠标所指字符位置
p := Edit1.Perform(EM_CHARFROMPOS, 0, MakeLParam(X, Y));
// 当前字符
Caption := Copy(Edit1.Text, p, 1);
end;