[Iniciante]Tremer Form Igual o MSN !

[FusioN]

Bom Galera é simples é so adcionar esse codigo abaixo em um Button, depois que vc compilar vc clica no Button e a Janela Ira tremer igual do Chamar Atenção !

Codigo:

var i : integer;
begin
for i := 0 to 10 do
begin
Form1.Left := Form1.Left + 5 ;
Sleep(30);
Form1.Top := Form1.Top + 5 ;
Application.ProcessMessages;
Sleep(50);
Form1.Left := Form1.Left - 5 ;
Sleep(30);
Form1.Top := Form1.Top - 5 ;
end;

Erros:

Se ocorrer augum erro na linha Begin é so vc tira-lo !

Creditos:

ursogb

Fonte:

Pro Code