Buscar

Sacudir form como no msn

Código

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

   

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Forms
Adicionada dia: 25/06/09
Por: Reginaldo R
Visualizada: 2899 vezes

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