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

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
avatar
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

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 : 19
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