怎样使窗口由不透明变成半透明,并慢慢消失?

haisha 2003-10-16 04:11:39
包括窗口上的控件和窗口一起变化,谢谢
...全文
51 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
佣工7001 2003-10-16
  • 打赏
  • 举报
回复
动态改变AlphaBlend 的值
delphi_xizhousheng 2003-10-16
  • 打赏
  • 举报
回复
AnimateWindow这个API比较通用,可以看帮助 参数很简单
jollyfeng 2003-10-16
  • 打赏
  • 举报
回复
procedure TForm1.Button2Click(Sender: TObject);
begin
AnimateWindow(Form1.Handle,1000,AW_HIDE or AW_BLEND);
form1.Close;
end;//窗口由不透明变成半透明,并慢慢消失
procedure TForm1.FormCreate(Sender: TObject);
animatewindow(self.Handle,250,aw_center or aw_activate);
end;//刚开始运行窗口有小变大。
IORILI 2003-10-16
  • 打赏
  • 举报
回复
我也是d6
haisha 2003-10-16
  • 打赏
  • 举报
回复
我是6,谢谢几位
hmzgz81 2003-10-16
  • 打赏
  • 举报
回复
哦!那楼主是delphi几啊?

呵呵!
IORILI 2003-10-16
  • 打赏
  • 举报
回复
procedure TForm1.Button2Click(Sender: TObject);
begin
AnimateWindow(Form1.Handle,1000,AW_HIDE or AW_BLEND);
form1.Close;
end;
Delphi_Li 2003-10-16
  • 打赏
  • 举报
回复
以下方法只能在Windows 2000以上的计算机中实现!!!
Delphi的版本必须使6以上!!!

设置Form的AlphaBlend属性(0:全透明,255:不透明)!!!

循环设置这个值就可以实现你的要求!!!
hmzgz81 2003-10-16
  • 打赏
  • 举报
回复
用一个timer控制form的AlphaBlendValue值!

prcedure TForm1.Timer1.Timer(Sender:TObject);
var i:=Form1.AlphaBlendValue;
if i<255 then
i:=i+15;
if i>255 then
begin i:=255;
Timer1.Enabled:=False;
end;
Form1.AlphaBlendValue:=i;
end;

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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