这样的效果怎么做啊

Question

就是把窗口做成网络蚂蚁那样的效果
要注意哪些东西啊
本人是新手
请大虾帮忙

Answer 1

参考一下--------------
--------------1.悬浮窗口
    Delphi 的 TForm.FormStyle 具有 fsStayOnTop 属性,但只是对其程序本身而言的,
也就是说只在此应用程序本身的窗口中是前端显示的,其他的程序的窗口仍然可以覆盖
此类型的窗口。这是应为此窗口的父窗口是 TApplication 。要让悬浮窗口独立的显示
在屏幕前端,应在创建窗口时将其父窗口设置为桌面。
   Form2 := TForm2.CreateParented(GetDesktopWindow);
2.允许 Client 区域拖动窗口
    这只要捕获窗口的 WM_NCHITTEST 消息,将客户区HitTest(HTCLIENT)变成标题栏
的HitTest(HTCAPTION)就可以了。
3.半透明
    Windows2000/XP 给窗口增加了WS_EX_LAYERED 属性,并通过 API
SetLayeredWindowAttributes(); 来设置此属性的详细信息。Delphi 6 的 Forms 单元
已经支持此窗口属性。
    property AlphaBlend default False;       // 是否使用半透明效果
    property AlphaBlendValue default 255;   // 透明度 0..255
    property TransparentColor default False;   // 是否使用穿透色
    property TransparentColorValue default 0;  // 穿透色
    (*此功能仅 Windows2000/XP 支持,不要在 Win9x 尝试此特效)
4.接收来自 Shell 的鼠标拖拽
    这将使用到 ActiveX 单元的 IDropTarget 接口,并扩展你的 Form 类。
      TForm2 = class(TForm, IDropTarget)
       ....
      end;
并在窗口拥有句柄后,用 RegisterDragDrop() 注册成为 DragDrop 接受目标。

Answer 2

andyzhou1101(〆.赱 極端(http://lovelcy.blogcn.com)) 谢谢你的资料
能给点代码吗