次のプログラムは、実行後に画面上で常に揺れるフォームを作成する方法を説明します。
2 つの変数を定義します。
変数
BackLeft、BackTop、I:整数;
//フォームの左側を保存
BackLeft:= 左;
//フォームの上部を保存
戻るトップ := トップ;
//数値は柔軟な数値として設定できます。もちろん、値はお客様が決定します。
for I:=1 toNumber do
始める
//水平方向のジッター
左:= (BackLeft-10) + (ランダム(20));
//垂直ジッター
トップ := (BackTop-10) + (ランダム(20));
終わり;
//フォームの左側をバックアップします
左 := 左後;
//フォームの先頭をバックアップします
トップ := バックトップ;