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 文件查找记录类型 - tsearchrec

Delphi运行时的问题,cannot focus a disabled or invisible window!

Delphi xe2模拟键盘按键

Delphi 判断文本文件的编码格式

Delphi unigui 获取当前ip

Delphi 制作资源文件并释放运行

Delphi webbrowser控件里编辑网页

Delphi 上次访问该文件的时间

Delphi stringgrid 加载excel表格文件内容自动宽度

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



打赏

取消

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

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

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

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

评论

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