如何实现有OICQ效果的粘屏？(100分)

如何实现有OICQ效果的粘屏？有没有控件？我有一些但效果很差，又不能自动隐藏，
自动隐藏如何实现呢？

有什么效果的啊,拿出来看看啊,让大家一起分享好吗

有一个叫什么bar的控件可以实现，找一下

是象winamp一样么？我有你要么

这个简单，不就和winamp 一样吗。
先定义全局变量 x_Start ,y_Start :Integer;
var
p :Tpoint;
begin
if WindowState =wsMaximized then exit;
GetCursorPos(p);
if (p.x -x_Start >11) or (p.x - x_Start <0)then
begin
if (Screen.Width - (p.x -x_Start +Width) >11) or (Screen.Width -( p.x - x_Start+Width) <0)then
Left:=p.x -x_Start
else
Left :=Screen.width -Width
end
else
Left :=0;
if (p.y -y_Start >11)or (p.y - y_Start <0) then
if (Screen.Height - p.y +y_Start -Height>11)or (Screen.Height - p.y +y_Start -Height <0) then
top :=p.y - y_Start
else
top :=Screen.Height -Height
else
top :=0;
end;
就给你这么多提示，其它你自己想!

其实自己实现也很简单,只需要判断一下窗体和屏幕的相对位置就行了.

可以说清楚点吗？

接受答案了.