Delphi Schiebregler (Sierpinski Dreieck)

[nahpets]

Hallo,

zieh Dir von der Seite Win32 in Delphi die Komponente TrackBar auf Dein Formular.
Die hat die Attribute Min und Max, in denen Du für Deinen Zufallsgenerator einen Mindest- und einen Höchstwert angeben kannst. In Deinem Quelltext änderst Du dann die Zeileinc(n); zufall:=random(6); ininc(n); zufall:=random(TrackBar1.Position); und schon hast Du das gewünschte Ergebnis.
Position ist der per Trackbar eingestellte Wert, irgendwo von Min bis Max. Wenn Min also 1 ist und Max 10, so kannst Du die Werte 1 bis 10 auswählen.