如何在指定的位置输出指定的文字？

Question

现有一个程序，使用screentoclient函数将鼠标点击屏幕的当前坐标转化为程序窗体的当前坐标（如20,80)，如何实现当用鼠标点击窗体外的已打开的文本文件时，在鼠标点击的当前位置(20,80)输出指定的文字( 如：abc）。

Answer 1

呵呵，
不太明白，
首先你要确定你的鼠标所点击处是不是允许接收字符如果你的鼠标所点处是一个文本档等类似的东东，
就用下面的这个吧
ASC := Ord('a');
SendMessage(Wnd,WM_CHAR,ASC,0);Wnd为鼠标下的控件句柄，
它会在当前光标处插入一个'a'

Answer 2

var
s:string;
i:integer;
begin
s:='hello';
for i:=1 to length(s) do
sendmessage(wnd,wm_char,ord(s[i]),0);
end;

Answer 3

将输入文字操作代码改为：
Button1Click(Sender);