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;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.046051979064941 seconds