Tremer a Tela

[marcio.theis 3]

Declare no uses:

 

Math

 

Declare a procedure:

 

procedure TForm1.Tremer(frm: HWND);var	r: TRect;	i, n1,n2: integer;beginGetWindowRect(frm,r);for i:=0 to 50 do	begin	n1:=RandomRange(-5,5);	n2:=RandomRange(-5,5);	SetWindowPos(frm,0,r.Left + n1,r.Top + n2,r.Right - r.Left,r.Bottom - r.Top,0);	sleep(20);	end;SetWindowPos(frm,0,r.Left,r.Top,r.Right - r.Left,r.Bottom - r.Top,0);end;

E chame:

 

Tremer(handle);

[QuIx 0]

Nossa !!!Nunca vi esse código na internet, vou testar agora deve ser muito legal !

[thiefzin 0]

Tentei usar mais nem deu certo :/Ele não reconhece o comando RandomRange...Teria algum outro comando para implementar a "tremedeira"? Obrigado desde já.

[marcio.theis 3]

Tentei usar mais nem deu certo :/

Ele não reconhece o comando RandomRange...

Teria algum outro comando para implementar a "tremedeira"?

 

Obrigado desde já.

Você precisa somente declarar na uses do seu form a unit Math...

[thiefzin 0]

Tentei usar mais nem deu certo :/

Ele não reconhece o comando RandomRange...

Teria algum outro comando para implementar a "tremedeira"?

 

Obrigado desde já.

Você precisa somente declarar na uses do seu form a unit Math...

 

haha, deu certo agora. Fica mó legal o efeito

 

Obrigado pela dica.

[Warfighter 0]

Onde coloco esse código ? Em qual Procedure ?

[marcio.theis 3]

Onde coloco esse código ? Em qual Procedure ?

 

Coloque em qualquer local do seu fonte, onde achar melhor...

[Warfighter 0]

E chame:

 

CODE

Tremer(handle);

 

Como faço para chamar isso ?

[marcio.theis 3]

E chame:

 

CODE

Tremer(handle);

 

Como faço para chamar isso ?

 

Coloque no evento OnClick de um botão, ou OnShow do form, onde deseja que seja feito a ação...

[cfesta 0]

cara, o código é show de bola, dá pra fazer várias brincadeiras...

 

a biblioteca Math do Delphi 5 não tem o procedimento RandomRange, então fiz uma function para substituir e funcionou...

 

vlw