Viciados BR
Olá bem vindo a o Viciados BR

Se você ainda não e membro Cadastre-se Agora
Ou se você já é membro, Logue-se .
e veja nosso Conteúdo.
Pois conteúdo aqui é o que não falta !

Participe do fórum, é rápido e fácil

Viciados BR
Olá bem vindo a o Viciados BR

Se você ainda não e membro Cadastre-se Agora
Ou se você já é membro, Logue-se .
e veja nosso Conteúdo.
Pois conteúdo aqui é o que não falta !
Viciados BR
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Painel de Usuário

Mensagens: 0


Alterar
Ver
Tópicos e mensagens

Contador de Visitas

Tutorial como treme igual Msn

2 participantes

Ir para baixo

Tutorial como treme igual Msn Empty Tutorial como treme igual Msn

Mensagem por Juuse Qua Set 21, 2011 6:12 pm

Adicione a procedure abaixo após {$R *.dfm}:

Código:
procedure TForm1.TremerForm(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;

Pressione Ctrl+Shift+C e após isso adicione um Button(Aba Standard) no form. Clique duas vezes no button, e adicione o seguinte codigo entre begin e end;



Código:
TremerForm(Form1);
Salve e compile e Pronto ^^
By : Juuse
Juuse
Juuse
Membro Avançado
Membro Avançado

Post Post : 170
Reputação Reputação : 0
Data de Inscriçao Data de Inscriçao : 19/04/2011

Ir para o topo Ir para baixo

Tutorial como treme igual Msn Empty Re: Tutorial como treme igual Msn

Mensagem por BGamer Qui Set 22, 2011 2:57 pm

Muito Bom Tópico cara amei! Continue assim!

BGamer
Membro de Bronze
Membro de Bronze

Post Post : 384
Reputação Reputação : 14
Data de Inscriçao Data de Inscriçao : 19/07/2011
Idade : 24
Localização : No Neet Forum

Ir para o topo Ir para baixo

Ir para o topo


 
Permissões neste sub-fórum
Não podes responder a tópicos