Следующая программа научит вас, как создать форму, которая будет постоянно трястись на экране после запуска.
Определите две переменные:
вар
BackLeft, BackTop, I: целое число;
//Сохраняем левую часть формы
НазадВлево:= Влево;
//Сохраняем верхнюю часть формы
BackTop := Верх;
//Число может быть установлено вами как гибкое число. Конечно, значение определяется вами.
для I:=1 toNumber сделать
начинать
//Горизонтальный джиттер
Слева:= (BackLeft-10) + (Случайный(20));
//вертикальный джиттер
Верх := (BackTop-10) + (Random(20));
конец;
//Резервное копирование левой части формы
Влево := НазадВлево;
//Резервное копирование верхней части формы
Верх := BackTop;