摘要: [代码] 阅读全文
posted @ 2010-09-16 10:18 @小宝 阅读(2525) 评论(0) 推荐(0)
摘要: 在OnShow加入弹出式窗口事件: procedure TForm1.FormShow(Sender: TObject); begin ANimateWindow(Handle,200,AW_SLIDE+AW_HOR_NEGATIVE); end; 关掉窗口滑动事件在OnClose加入: procedure TForm1.FormClose(Sender: TObject; var Action:... 阅读全文
posted @ 2010-09-16 10:12 @小宝 阅读(3060) 评论(0) 推荐(0)