<font color=#FF0000>屏幕文字输出的问题</font>(100分)

请问象金山词霸的文字输出的效果怎么实现啊？我不是想屏幕取词，是想在屏幕上输出
象Hint似的东西而且不使原来屏幕上的窗口失去焦点。

试试这个:
var dskcanvas:TCanvas;
begin
dskcanvas:=TCanvas.create;
dskcanvas.handle:=getdc(0);
dskcanvas.textout(1,1,'asdfsdf');
end;

to www
别忘了用ReleaseDC将dc释放

谢谢www和wangxd，我试过了，果然行，可是金山词霸在鼠标挪走时，那个东西也不
见了，然后在另外的地方输出，这该怎么办啊？

就是
var
dskcanvas:TCanvas;
P: TPoint;
begin
GetCursorPos(P);
dskcanvas:=TCanvas.create;
dskcanvas.handle:=getdc(0);
dskcanvas.textout(p.x,p.y,'asdfsdf');
dskcanvas.Free;
end;
鼠标挪走后，怎么把原来的擦掉，在新的地方重画呢？

创建另一个TBitmap，在输出文字之前，先将所画区域保存，鼠标挪走后，在用保存的区域
恢复，就象游戏中一个物体的移动一样。
Bitmap.canvas.copyrect可完成

Bitmap.canvas.copyrect??何必如此费劲
这样就可:
invalidaterect(0,nil,true);

果然行。谢谢两位。

多人接受答案了。

&lt;form method="POST" action="PostModUser.asp"&gt;
&lt;input type="hidden" name="T1" value="5415"&gt;
&lt;p&gt;&lt;input type="radio" value="R1" name="R1"&gt;&lt;/p&gt;
&lt;p&gt;&lt;input type="radio" value="R2" name="R1" checked&gt;&lt;/p&gt;
&lt;p&gt;&lt;input type="text" name="T2" size="14"&gt;&lt;/p&gt;
&lt;p&gt;&lt;input type="submit" value=" 登记 " name="B1" style="font-size:12px"&gt; &lt;/p&gt;
&lt;/form&gt;

&lt;form method="POST" action="PostModUser.asp"&gt;
&lt;input type="hidden" name="T1" value="5415"&gt;
&lt;p&gt;您可以：&lt;/strong&gt; &lt;/p&gt;
&lt;p&gt;&lt;strong&gt;&lt;input type="radio" value="R1" name="R1"&gt;删除您的登记帐号，或者&lt;/strong&gt;&lt;/p&gt;
&lt;p&gt;&lt;strong&gt;&lt;input type="radio" value="R2" name="R1" checked&gt;修改以下信息：&lt;/strong&gt;&lt;/p&gt;
&lt;p&gt;1、修改您的密码：&lt;input type="password" name="T2" size="14"
Value="12345"&gt;&lt;/p&gt;
&lt;p&gt;2、修改您的Email：&lt;br&gt;
&lt;input type="text" name="T3" size="60" value="ewind@263.net" style="font-size:14px"&gt;&lt;/p&gt;
&lt;p&gt;3、修改关于您自己的一点描述：&lt;br&gt;
&lt;textarea rows="7" name="S1" cols="80" style="font-size:12px"&gt; &lt;/textarea&gt;&lt;/p&gt;
&lt;p&gt;&lt;input type="submit" value=" 登记 " name="B1" style="font-size:12px"&gt; &lt;input type="reset" value=" 重写 "
name="B2" style="font-size:12px"&gt;&lt;/p&gt;
&lt;/form&gt;

&lt;form method="POST" action="PostReply.asp?LID=508932"&gt;
&lt;input type=hidden name=FID value="14"&gt;

&lt;p class="text"&gt;&lt;input type="radio" value="V1" name="R1"&gt;删除这个问题&lt;br&gt;

&lt;table border="0" width="100%" align="center" cellspacing="2" cellpadding="1"&gt;
&lt;tr&gt;
&lt;td class="text" width="140px"&gt;
&lt;input type="submit" value=" 发出 " name="B1" style:="font-size:14px"&gt;
&lt;/td&gt;
&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;

&lt;input type="hidden" name="atten" value="假"&gt;
&lt;/form&gt;

&lt;form method="POST" action="PostReply.asp?LID=365020"&gt;
&lt;input type=hidden name=FID value="14"&gt;

&lt;p class="text"&gt;&lt;input type="radio" value="V1" name="R1"&gt;删除这个问题&lt;br&gt;

&lt;table border="0" width="100%" align="center" cellspacing="2" cellpadding="1"&gt;
&lt;tr&gt;
&lt;td class="text" width="140px"&gt;
&lt;input type="submit" value=" 发出 " name="B1" style:="font-size:14px"&gt;
&lt;/td&gt;
&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;

&lt;input type="hidden" name="atten" value="假"&gt;
&lt;/form&gt;

&lt;form method="POST" action="PostReply.asp?LID=365020"&gt;
&lt;input type=hidden name=FID value="23"&gt;

&lt;p class="text"&gt;&lt;strong&gt;prob,
对此问题，您可以：&lt;/strong&gt;&lt;/p&gt;

&lt;p class="text"&gt;&lt;input type="radio" value="V1" name="R1"&gt;删除这个问题&lt;br&gt;

&lt;p class="text"&gt;&lt;input type="radio" value="V9" checked name="R1"&gt;仅仅添加注释，注释内容：&lt;Font Color=#FF0000&gt;(请您注意换行，
如果只想获得email通知，注释可以不填。

)&lt;/font&gt;&lt;br&gt; &lt;textarea rows="16" name="S1" cols="80" style="font-size:14px;font-family:宋体" wrap="off"
style="line-height:22px" &gt;&lt;/textarea&gt;&lt;/p&gt;
&lt;p class="text"&gt;&lt;input type="checkbox" name="C1" value="1" checked&gt;如果有人参与讨论这个问题，请用EMail通知我。&lt;br&gt;
&lt;/p&gt;
&lt;table border="0" width="100%" align="center" cellspacing="2" cellpadding="1"&gt;
&lt;tr&gt;
&lt;td class="text" width="140px"&gt;
&lt;input type="submit" value=" 发出 " name="B1" style:="font-size:14px"&gt;
&lt;input type="reset" value=" 重写 " name="B2" style:="font-size:14px"&gt;
&lt;/td&gt;
&lt;td class="text" width="80px" bgcolor="#CCE6FF"&gt;&amp;nbsp;
附加功能
&lt;/td&gt;
&lt;td class="text" bgcolor="#DFDFFF"&gt;

&amp;nbsp;&lt;a class="text" href="DispQ.asp?lid=509060&amp;act=topletter"&gt;将问题提前&lt;/a&gt;

&amp;nbsp;&amp;nbsp;&lt;a class="text" href="DispQ.asp?lid=509060&amp;act=collect"&gt;添加到收藏夹&lt;/a&gt;

&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;

&lt;input type="hidden" name="atten" value="假"&gt;
&lt;/form&gt;


&lt;p class="text" onClick="JavaScript:history.back();"&gt;&lt;a href="NewQ.asp"&gt;返回&lt;/a&gt;&lt;/p&gt;