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

Question

包括窗口上的控件和窗口一起变化,谢谢

Answer 1

用一个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;

Answer 2

以下方法只能在Windows 2000以上的计算机中实现！！！
Delphi的版本必须使6以上！！！设置Form的AlphaBlend属性（0：全透明，255：不透明）！！！循环设置这个值就可以实现你的要求！！！

Answer 3

procedure TForm1.Button2Click(Sender: TObject);
begin
 AnimateWindow(Form1.Handle,1000,AW_HIDE or AW_BLEND);
 form1.Close;
end;

Answer 4

哦！那楼主是delphi几啊？呵呵！

Answer 5

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;//刚开始运行窗口有小变大。

Answer 6

AnimateWindow这个API比较通用，可以看帮助 参数很简单