怎样使窗口由不透明变成半透明,并慢慢消失? 包括窗口上的控件和窗口一起变化,谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用一个timer控制form的AlphaBlendValue值!prcedure TForm1.Timer1.Timer(Sender:TObject);var i:=Form1.AlphaBlendValue;if i<255 then i:=i+15;if i>255 thenbegin i:=255;Timer1.Enabled:=False;end;Form1.AlphaBlendValue:=i;end; 以下方法只能在Windows 2000以上的计算机中实现!!!Delphi的版本必须使6以上!!!设置Form的AlphaBlend属性(0:全透明,255:不透明)!!!循环设置这个值就可以实现你的要求!!! procedure TForm1.Button2Click(Sender: TObject);begin AnimateWindow(Form1.Handle,1000,AW_HIDE or AW_BLEND); form1.Close;end; 哦!那楼主是delphi几啊?呵呵! 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;//刚开始运行窗口有小变大。 AnimateWindow这个API比较通用,可以看帮助 参数很简单 如何自动填充浏览器中的表单 欢迎加入DELPHI+SQL2000的QQ群,大家一起学习进步!第三方控件 求教如何在过程中转到过程中的一个小程序块,运行后再转回去? 请教++++UP有分 delphi中如何调用过程函数? 问一个调用函数的简单问题。在edit输入函数名调用函数。该如何做 请各位高手帮忙!!! 为什么写到数据库时候,连时间也写入到数据库中??? 如何保存收下來的email呢???!!!!! QRP文件如何转成TXT文件 本人想制作一个局域网中的监控程序,望大哥大姐们帮帮忙 为宇航员已安全返回散分(20分)
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;
Delphi的版本必须使6以上!!!设置Form的AlphaBlend属性(0:全透明,255:不透明)!!!循环设置这个值就可以实现你的要求!!!
begin
AnimateWindow(Form1.Handle,1000,AW_HIDE or AW_BLEND);
form1.Close;
end;
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;//刚开始运行窗口有小变大。