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里实现多线程下载文件并且显示进度到界面

Delphi 间隔时间

Delphi实现文件拖放代码

Delphi console程序中一种定时方法

Delphi 泛型 tdictionary<string,string>

Delphi webbrowser1遍历网页中的图片

Delphi xe8 用httpclient下载文件

Delphi 遍历文件单元文件

Delphi 不管什么datetime日期格式时间格式转换都不会错了

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