[Iniciante]Tremer Form Igual o MSN !
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:
Citação:
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