2019年10月13日
Delphi 加载GIF动画到界面窗体最外层处理方法
摘要： unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, V 阅读全文
posted @ 2019-10-13 13:06 襄阳古城 阅读(285) 评论(0) 推荐(0) 编辑
Delphi 启动的动画效果函数AnimateWindow(Handle,200,AW_CENTER);
摘要： 在OnShow加入弹出式窗口事件： procedure TForm1.FormShow(Sender: TObject); begin ANimateWindow(Handle,200,AW_SLIDE+AW_HOR_NEGATIVE); end; 关掉窗口滑动事件在OnClose加入： proce 阅读全文
posted @ 2019-10-13 11:47 襄阳古城 阅读(514) 评论(0) 推荐(0) 编辑