[Delphi 7] Tremendo Form (Semelhante ao MSN)

[ρяσgяαммєя 0]

Neste tutorial, ensinarei a vocês a fazerem o seu form tremer.

Mas como assim tremer?

Sabe quando você é chamado atenção no MSN e sua tela não treme?? Então é isso que nós vamos fazer com nosso form, mas o código estará no botão.

Vejam:

 

Adicione o código que está logo abaixo, após {$R *.dfm}:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

OBS: Talvez, alterando alguns valores do comando, será possível alterar por onde o Form circulará. Teste !!!

 

Pressione Ctrl+Shift+C e após isso adicione um Button (Aba Standard) no form. No OnClick do Button (Clique duas vezes sobre o button), e adicione o seguinte codigo entre begin e end;

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Para testar o seu programa, pressione F9, e/ou para salvar e compilar, pressione CTRL + F9.

 

Ao abrir o programa e clikar sobre o botão, o teu form tremerá.

 

Créditos

ρяσgяαммєя

[luxfer 0]

E para que você colocou um argumento se você não o utiliza?

[ρяσgяαммєя 0]

E para que você colocou um argumento se você não o utiliza?

 

@ - Edit

Não sei, shaushausha. Eu tava com uma apostila improvisada aqui, ai fui vendo ela, e montei esse código, mas ai eu tinha visto um código lá, ai eu puis o Argumento, mas mesmo assim o código dá certo ^^

[~EvilCode 79]

Você não entendeu o que ele disse:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

O "Sender: TObject" é o argumento na qual o amigo se referiu, e ambas as partes em vermelho, você não utiliza, vou reparar pra você.

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[ρяσgяαммєя 0]

@~EvilCode

 

Vlws ae, aprendendo muito com vocês .....

Mas mesmo assim aquele código daria certo ^^

Mas argumento inutil. :P

 

Abz'

[~OwneR~ 8]

Mas assim ele vai sempre usar o Form1 como referência =S

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Assim fica mais certinho ;P

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[~EvilCode 79]

Tenso.. esqueci de um detalhe tosco... ¬¬'

Eu mudei essa função 2x, a 1° eu tinha deixado o TObject e usado TForm(Sender).blablabla, estava correta, mas quando mudei, esqueci.. ¬¬' acontece.. :(

Ty.