想做个窗体逐渐消失的效果，请问有什么简单方法，谢谢

Question

窗体逐渐消失，到完全不见时，关闭窗口我想实现这个效果，请问在Delphi 6里有什么简单方法？谢谢

Answer 1

1.  Form1.AlphaBlend := True;
2.在定时器中递减  Form1.AlphaBlendValue，递减步长自己规定，递减到0了就看不到了，255是完全显示
Windows 2000以上系统适用

Answer 2

截获WM_CLOSE消息，然后自己作出关闭效果的处理后，再执行关闭代码下面给你个例子，截获WM_CLOSE消息，这里这是简单的把窗体的宽度逐渐减一
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;  private
    procedure WMClose(var Message: TWMClose); message WM_CLOSE;
  public  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.WMClose(var Message: TWMClose);
var
 I :integer;
begin  if Message.Msg = WM_CLOSE then
  begin
      for I := 0 to Width do
      begin    //你可以在这里处理，做出你想要的效果，我这只是一个例子
       Form1.Width := form1.Width -1;
      end;
  end;
  inherited;
end;end.