用Delphi读取鼠标所在位置单词
有些字典程序具有这样的功能──当我们用鼠标点取某个英文单词后，程序就显示该单词的中文意思，这样的程序怎样编写呢？首先我们要将中英文对照字典事先建立好，然后在程序中获取使用者点取的单词，接着在中英文对照字典查找所选的单词，最后将翻译结果显示出来。本文就着力说明如何在程序中读取鼠标所在位置的单词。
程序的关键在于需要向文本框传递消息EN_CHARFROMPOS。该消息用于读取当前鼠标位于文本框的第几行第几列上。在发送该消息时，参数wParam没有作用；参数lParam为长整型，用于指定鼠标的坐标位置，其中两个高字节指定Y，两个低字节指定X。返回值为长整型，其中两个高字节指定鼠标位于第几个字符上，两个低字节指定鼠标位于第几个列上。
程序代码如下：
unit Unit1;
interface
uses
Windows，Messages，SysUtils，Classes，Graphics，Controls，Forms，Dialogs，，
StdCtrls；
type
TForm1 = class（TForm）
Memo1：TMemo；
procedure Memo1MouseDown（Sender：TObject；Button：TMouseButton；
Shift：TShiftState；X，Y：Integer）；
procedure FormCreate（Sender：TOb—ject）；
private
{Private declarations}
public
Function IsSeparetor（ch：Char）：Boolean；
Function GetWord（pos：Word）：String；
{Public declarations}
end；
var
Form1：TForm1；
implementation
{$R*.DFM}
{函数IsSparetor用于判定一个字符是否为分隔符}
Function TForm1.IsSeparetor（ch：Char）：Boolean；
begin
IsSeparetor：= False；
If ch in[＇ ＇，＇， ＇.＇，＇?＇，#10，#13]then
IsSeparetor：= True
End；
{函数GetWord用于读取鼠标所在位置的单词}
Function TForm1.GetWord（pos：Word）:String；
var
st：string；pos1，pos2：Word；
i：Longint；w：string；
begin
w：=＇＇：pos1：= 1；getword：=＇＇；
{读取文本框中的内容及文本长度}
st：=Memo1.Lines.Text ；
pos2：= length（st）
{向前搜寻当前单词的起始位置}
For i：= pos - 1 downTo 1 do
If IsSeparetor（st[i]）Then
begin
pos1：= i + 1；break
end；
{向后搜寻当前单词的结束位置}
For i：= pos To pos2 do
If IsSeparetor（st[i]）Then
begin
pos2：= i - 1； break
end;
{截取pos1-pos2间的字符，以构成一个单词}
if pos1<=pos2 then
begin
For i：= pos1 To pos2 do
w：=w+st[i]；
GetWord：= ＇单词：＇+w
end
End；
procedure TForm1.Memo1MouseDown（Sender：TObject；Button：TMouseButton；
Shift：TShiftState；X，Y：Integer）；
var
lc：Longint；CharPos：Word；
begin
{向文本框传递消息EN_CHARFROMPOS}
lc：= SendMessage（Memo1.handle，EM_CHARFROMPOS，0，x+（y shl 16））； {取得鼠标位于第几个字符上}
CharPos:=Word（lc）
{显示我们所点取的单词}
Memo1.Hint：= GetWord（CharPos）
end；
procedure TForm1.FormCreate（Sender.TObject）；
begin
Memo1.ShowHint：=True
end；
end.
以上代码在Windows 98、Delphi 5.0环境下调试通过。