Lucas Roberto
Administrador
Mensagens : 711
 | Assunto: Tremer a Form Igual no MSN  Ter 12 Jul 2011, 22: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
Última edição por ΩLuucαs Robεrto em Qua 13 Jul 2011, 14:21, editado 1 vez(es) | |
|
Convidado
Convidado
| | Assunto: Re: Tremer a Form Igual no MSN Qua 13 Jul 2011, 14: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.
|
|
Lucas Roberto
Administrador
Mensagens : 711
| | Assunto: Re: Tremer a Form Igual no MSN Qua 13 Jul 2011, 14: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 | |
|
Conteúdo patrocinado
| | Assunto: Re: Tremer a Form Igual no MSN | |
| |
|
Eventos
Publicações