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 hmacsha256

Delphi中paramstr的用法

Delphi程序与chm帮助关联的简单实现

Delphi fastreport快速入门

Delphi 串口控制继电器

Delphi获取android上的imei

Delphi自带的indy控件实现md5加密

Delphi固定窗口大小

Delphi 把字节数显示成kb或gb的函数

Delphi 设置系统默认打印机

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

转载请注明出处：木庄网络博客 » Delphi仿QQ窗口抖动的代码