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

领测软件测试网

end;
procedure tform2.Show;
begin
top:=430;
left:=560;
if AnimateWindow(Handle,200,AW_VER_NEGATIVE)=false then
begin
showmessage(′窗体显示出错′);
free;
end;
inherited show;
end;
{$R *.dfm} 

　　以上红色的区域为具体实现特效的代码。为FORM1添加如下代码即可：

unit Unit1;

interface

uses

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