Delphi中用API实现在MSN的信息提示

领测软件测试网

private
{ Private declarations }
public
procedure Show;
procedure close;
{ Public declarations }
end;

var
Form2: TForm2;

implementation
procedure tform2.close;
begin
if AnimateWindow(Handle,200,AW_VER_POSITIVE+AW_HIDE)=false then
begin
showmessage(′窗体退出出错′);
free;
end;
inherited close;

文章来源于领测软件测试网 https://www.ltesting.net/