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 xe8 tstylebook的使用

Delphi kmp(字符串匹配)算法

Delphi中in的使用

Delphi int64 与 currency

Delphi 读cpu串号的代码

monthdays：给出一个月的天数

Delphi7 中tstringlist的delimiter delimitedtext有bug，字符串分割有问题

Delphi 屏幕dpi计算

Delphi idhttp访问datasnap有密码验证的中间件

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

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