Buscar

Tremer o Form Igual o MSN - Aprimorado

Código

Peguei a dica de um colega de como tremer o form e dei uma aprimorada, bem simples:

procedure TForm1.Button2Click(Sender: TObject);
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;
end;


   

Publicidade

Vote na dica




Quantidade de votos: 1 voto
Aceitação: 20%

Detalhes da dica

Categoria: Forms
Adicionada dia: 26/06/09
Por: Carlos Henrique Zambelli Carboneri
Visualizada: 3516 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009