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 !
Painel de Usuário

Mensagens: 0


Alterar
Ver
Tópicos e mensagens

Contador de Visitas

Tutorial como treme igual Msn

Ir em baixo

Tutorial como treme igual Msn Empty Tutorial como treme igual Msn

Mensagem por Juuse em 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

Ver perfil do usuário

Voltar ao Topo Ir em baixo

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

Mensagem por BGamer em 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 : 20
Localização : No Neet Forum

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum