摘要:
[代码] 阅读全文
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)