LANÇAMENTO! Curso de Delphi 2009, clique aqui e confira!
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;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009
LANÇAMENTO! Curso de Delphi 2009, clique aqui e confira!