O programa a seguir irá ensiná-lo a fazer um formulário que irá tremer constantemente na tela quando for executado.
Defina duas variáveis:
var
BackLeft,BackTop,I:inteiro;
//Salva o lado esquerdo do form
VoltarEsquerda:= Esquerda;
//Salva o topo do formulário
BackTop := Topo;
//O número pode ser definido por você como um número flexível. Claro, o valor é determinado por você.
para I:=1 paraNúmero faça
começar
//Jitter horizontal
Esquerda:= (VoltarEsquerda-10) + (Aleatório(20));
//jitter vertical
Superior := (BackTop-10) + (Aleatório(20));
fim;
// Faz backup à esquerda do formulário
Esquerda := VoltarEsquerda;
//faz backup do topo do formulário
Superior := VoltarTopo;