Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!
Universo Games

Suporte e Desenvolvimento só no Universo Games
 
InícioInício  PortalPortal  EventosEventos  PublicaçõesPublicações  Registrar-seRegistrar-se  Conectar-seConectar-se  
Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

Compartilhe | 
 

 Tremer a Form Igual no MSN

Ir em baixo 
AutorMensagem
Lucas Roberto
Administrador
Administrador
avatar

Mensagens : 709

MensagemAssunto: Tremer a Form Igual no MSN   Ter 12 Jul 2011, 21:07

1º - 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;

2º - 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 (CTRL+F9)

Só isso, quando você clicar no botão, o Form tremerá.


Creditos:Thales12 por fazer o Tutorial

_______________________________________________________________________________________________________


[Você precisa estar registrado e conectado para ver esta imagem.]


Última edição por ΩLuucαs Robεrto em Qua 13 Jul 2011, 13:21, editado 1 vez(es)
Voltar ao Topo Ir em baixo
http://universogamesmmo.forumeiros.com
Neapon
Iniciante
Iniciante
avatar

Mensagens : 12

MensagemAssunto: Re: Tremer a Form Igual no MSN   Qua 13 Jul 2011, 13:12

kk gostei desse tuto toma +1

Eu ri:Muda isso\/vc e o Lucas

Citação :
Creditos:a mim Thales12 por fazer o Tutorial e postar.
Voltar ao Topo Ir em baixo
Lucas Roberto
Administrador
Administrador
avatar

Mensagens : 709

MensagemAssunto: Re: Tremer a Form Igual no MSN   Qua 13 Jul 2011, 13:21

kk sim e que o Thales pego na Net ai
peguei do post dele para apostar aqui shauhsua
vou mudar creditos e do Google e Thales12 hehe
e Obrigado +1

_______________________________________________________________________________________________________


[Você precisa estar registrado e conectado para ver esta imagem.]
Voltar ao Topo Ir em baixo
http://universogamesmmo.forumeiros.com
Conteúdo patrocinado




MensagemAssunto: Re: Tremer a Form Igual no MSN   

Voltar ao Topo Ir em baixo
 
Tremer a Form Igual no MSN
Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» [tri-Ace] "Havia algo realmente errado em Star Ocean 4"
» [Primeiras impressões] Assassin's Creed Syndicate
» [Dica][Delphi] Desabilitar/Habilitar componentes de um form pela sua classe
» [R] Hobbz - Habbo Pirata - Igual o Hebbo - Novo Efeito - Função Beijar
» Finao Fantazi Quinze DUBLAGEM FODA

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Universo Games :: Centro de Aprendizagem :: Programação :: Borland Delphi-
Ir para: