[Tutorial] Fazendo Form Tremer

[Puncker 201]

Criando um programa básico que treme o Form

{Iniciando em Delphi}

Necessário:

• Delphi 7 (Em breve link para download)
  

• Criando e organizando o Form
  

Caso um projeto não foi criado, vá no menu "File" >> "New" >> "Application", e aparecerá um Form1 em branco.

Agora ainda na aba "Standard" selecione um "Button" e coloque no Form1

• 
  
  
• Código
  

Dê dois cliques no form para ir para a parte de código e depois de

implementation


{$R *.dfm}

Adicione isto:

procedure Tremer(frm: HWND);

var

r: TRect;

i: integer;

n1, n2: integer;

begin

getwindowrect(frm,r);

for i:= 0 to 50 do begin

n1:=random(5);

n2:=random(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;

Agora o código do botão Dê dois cliques no "Button1" e coloque o seguinte código para chamar a função

tremer(handle);

[Renato 659]

Como assim tremer?

Tremer de chaqualhar? ASUHSAUSHA

Tipo chamar a atenção no MSN?

Abraços.

[Puncker 201]

Isso, que nem msn.