ANimateWindow

最新推荐文章于 2019-08-09 20:44:04 发布

转载最新推荐文章于 2019-08-09 20:44:04 发布 · 575 阅读

文章标签：

#action

Delphi 专栏收录该内容

21 篇文章

订阅专栏

本文介绍了一个简单的窗口动画效果实现方法，包括窗口显示时从左侧滑入及关闭时向右侧滑出的效果。通过调用 ANimateWindow 函数并设置相应的参数来完成动画过程。

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin ANimateWindow (Handle,200,AW_SLIDE+AW_HOR_POSITIVE+AW_HIDE); end; procedure TForm1.FormShow(Sender: TObject); begin ANimateWindow(Handle,200,AW_SLIDE+AW_HOR_NEGATIVE); SetActiveWindow(Handle); end;