AnImateWindow用法
摘要：
在OnShow加入弹出式窗口事件： procedure TForm1.FormShow(Sender: TObject); begin ANimateWindow(Handle,200,AW_SLIDE+AW_HOR_NEGATIVE); end; 关掉窗口滑动事件在OnClose加入： procedure TForm1.FormClose(Sender: TObject; var Ac... 阅读全文
posted @ 2009-03-19 00:40 歪歪Weblog 阅读(829) 评论(0) 推荐(0) 编辑
