怎么实现象FLASH GET的那种小的浮动敞口!?(只有这么点了,以后有了再加!)(5分)

  • 主题发起人 主题发起人 itfly
  • 开始时间 开始时间
I

itfly

Unregistered / Unconfirmed
GUEST, unregistred user!
怎么实现象FLASH GET的那种小的浮动敞口!?[:(!]
 
该小窗口有3个特点:
1.无边框
这个你应该会,Form.borderstyle 设成 bsNone
2.一直在前
Form 的 FormStyle 设成 fsStayOnTop
3.半透明效果
这个本来要调 API的,好在 Delphi 6 里的 Form 已经加了2个属性:
AlphaBlend :boolean 是否透明
AlphaBlendValue : 0..255 透明值(0为全透,255为全不透)
4.鼠标抓着走,这个也 easy,查查以前的0817573号帖子
 
设置 borderStyle 为 bsNone
formStyle 为 fsStayOntop
调整位置和大小
做该做的,不要忘了“如何退出”。
 
同意 轻松虎
不过再加一个右健菜单。popupmenu。
 
谢谢,其他的我后面给分。
 

Similar threads

回复
0
查看
978
不得闲
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部