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

[welot]

窗体逐渐消失，到完全不见时，关闭窗口

我想实现这个效果，请问在Delphi 6里有什么简单方法？谢谢

[postren]

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

[wudi_1982]

截获WM_CLOSE消息，然后自己作出关闭效果的处理后，再执行关闭代码

下面给你个例子，截获WM_CLOSE消息，这里这是简单的把窗体的宽度逐渐减一
unit Unit1;

interface

uses
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.