Painel de Usuário
Mensagens: 0
-
Alterar
-
Ver
-
Tópicos e mensagens
Contador de Visitas
Tutorial como treme igual Msn
2 participantes
Página 1 de 1
Tutorial como treme igual Msn
Adicione a procedure abaixo após {$R *.dfm}:
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;
By : Juuse
- 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;
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);
By : Juuse
Juuse- Membro Avançado
- Post : 170
Reputação : 0
Data de Inscriçao : 19/04/2011
Re: Tutorial como treme igual Msn
Muito Bom Tópico cara amei! Continue assim!
BGamer- Membro de Bronze
- Post : 384
Reputação : 14
Data de Inscriçao : 19/07/2011
Idade : 24
Localização : No Neet Forum
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|