Delphi仿QQ窗口抖动的代码


本文整理自网络,侵删。

 
uses  mmSystem; //mmSystem用于播放声音


{$R SOUND.RES} //编译声音资源,声音资源的制作方法,这里不再赘述
procedure TForm1.Button1Click(Sender: TObject);
var I: integer;
begin
  PlaySound('Shake', 0, SND_RESOURCE or SND_ASYNC);
  for I := 0 to 4 do begin
    Self.Top := Self.Top - 3; Sleep(40);
    Self.Left := Self.Left - 3; Sleep(40);
    Self.Top := Self.Top + 3; Sleep(40);
    Self.Left := Self.Left + 3; Sleep(40);
  end;
end;

相关阅读 >>

Delphi 数据库重置用户密码制作

Delphi setcurrentdir 设置当前文件夹路径

Delphi 如何判断当前网卡是物理网卡

Delphi使用spcomm没办法触发receivedata

Delphi sysutils.comparetext的注释

Delphi通过setupapi.dll列举和停用硬件设备

Delphi读写二进制文件

Delphi 小数点四舍五入问题

Delphi function 与 procedure

Delphi 动态内存查找法

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...