如何实现窗口渐渐消失的效果啊

麦子VISA 2004-11-09 03:21:54
象QQ好友上线一下,过会就消失了
...全文
110 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
qizhanfeng 2004-11-09
  • 打赏
  • 举报
回复
1、淡入:双击Form1,在其“OnCreate”事件中添加:
AnimateWindow(Form1.Handle,1000,AW_BLEND);
2、淡出:双击Button1,在其“OnClick”事件中添加:
AnimateWindow(Form1.Handle,1000,AW_HIDE or AW_BLEND);
form1.Close;//关闭窗口
小东东1334 2004-11-09
  • 打赏
  • 举报
回复
利用窗体透明实现

2,498

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧