El siguiente programa le enseñará cómo crear un formulario que vibrará constantemente en la pantalla una vez que se ejecute.
Defina dos variables:
var
AtrásIzquierda,AtrásArriba,I:entero;
//Guardar a la izquierda del formulario
AtrásIzquierda:= Izquierda;
//Guardar la parte superior del formulario
AtrásArriba := Arriba;
// Usted puede establecer el número como un número flexible. Por supuesto, el valor lo determina usted.
para I:=1 a Número hacer
comenzar
// jitter horizontal
Izquierda:= (AtrásIzquierda-10) + (Aleatorio(20));
// jitter vertical
Arriba := (BackTop-10) + (Aleatorio(20));
fin;
//Hace una copia de seguridad a la izquierda del formulario
Izquierda := AtrásIzquierda;
//Hacer una copia de seguridad de la parte superior del formulario
Arriba := AtrásArriba;