delphi之模拟QQ窗口抖动

相信以后能用到，效果还不错，如果想抖的厉害些，就把下面的那些数值改大点吧~
抖动的时候有个声音，声音资源的编译方法参考 [delphi之声音资源(*.res)的编译方法]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan, mmSystem; //mmSystem用于播放声音

type
  TForm1 = class(TForm)
    Button1: TButton;
    XPManifest1: TXPManifest;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{$R SOUND.RES} //编译好的声音资源，就是抖动的时候的那个声音
procedure TForm1.Button1Click(Sender: TObject);
var I: integer;
begin
  PlaySound('sound', 0, SND_RESOURCE or SND_ASYNC);
  for I := 0 to 4 do begin
    Self.Refresh;//窗体刷新
    Self.Top := Self.Top - 4; Sleep(50);
    Self.Left := Self.Left - 4; Sleep(50);
    Self.Top := Self.Top + 4; Sleep(50);
    Self.Left := Self.Left + 4; Sleep(50);
  end;
end;

end.