다음 프로그램은 일단 실행되면 화면에서 계속 흔들리는 폼을 만드는 방법을 가르쳐 줄 것입니다.
두 가지 변수를 정의합니다.
var
BackLeft,BackTop,I:정수;
//폼의 왼쪽 부분을 저장합니다.
뒤로왼쪽:= 왼쪽;
//폼 상단 저장
BackTop := 위쪽;
//숫자는 유연한 숫자로 설정할 수 있습니다. 물론 값은 사용자가 결정합니다.
I:=1 toNumber do의 경우
시작하다
//수평 지터
왼쪽:= (BackLeft-10) + (Random(20));
//수직 지터
Top := (BackTop-10) + (Random(20));
끝;
//폼의 왼쪽을 백업합니다.
왼쪽 := 뒤로왼쪽;
//폼 상단 백업
상단 := 백탑;