Das folgende Programm zeigt Ihnen, wie Sie ein Formular erstellen, das nach der Ausführung ständig auf dem Bildschirm wackelt.
Definieren Sie zwei Variablen:
var
BackLeft,BackTop,I:integer;
//Speichern Sie den linken Teil des Formulars
BackLeft:= Links;
//Speichern Sie den oberen Teil des Formulars
BackTop := Oben;
//Die Zahl kann von Ihnen flexibel eingestellt werden, der Wert wird natürlich von Ihnen bestimmt.
for I:=1 toNumber do
beginnen
//Horizontaler Jitter
Links:= (BackLeft-10) + (Random(20));
//vertikaler Jitter
Oben := (BackTop-10) + (Random(20));
Ende;
//Sichern Sie die linke Seite des Formulars
Links := BackLeft;
//Oberen Rand des Formulars sichern
Oben := BackTop;