Form tremendo igual MSN

[paulinipaquiel 4]

Bom o Codigo é simples

é so colocar em um button ou qualquer coisa, que você queira.

 

procedure TForm1.Button1Click(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;

 

 

Preste bem atenção na hora em que for

copiar e colar, porque eu sei que ninguem vai

escrever isso tudo, entao preste atenção pra

nao copiar coisas DESNECESSÁRIAS!

[Owner 7]

Hum !

É bom para Chat's, e muito legal !

Por varias pessoas ja postarem aqui, eu vou falar dinovo, pesquise antes, se nao você vai ser banido dinovo !

Espero que entenda

Até e Abrasz

Muito bom o tópico

[darkfenyx3 7]

É legal sim, mas caso você aperte muitas vezes o botão e tenta fecahr a aplicação, ela trava, aconselho a por numa Thread.

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se