Home » Tipps & Tricks » Grafik » Sonstiges » Zufallsfarbe generieren

Zufallsfarbe generieren

Mithilfe des Zufallsgenerators können Sie Zufallsfarben erstellen. Folgendes Beispiel erzeugt erst getrennt die Rot-, Grün- und Blau-Anteile und setzt sie anschließend zu einem vollständigen Farbwert zusammen:

procedure TForm1.Button1Click(Sender: TObject);
var
  cRed, cGreen, cBlue: Integer;
begin
  cRed:=Random(256);
  cGreen:=Random(256);
  cBlue:=Random(256);

  Form1.Color:=RGB(cRed, cGreen, cBlue);
end;

Rufen Sie vor dem ersten Gebrauch von Random mindestens einmal die Prozedur „Randomize“ auf, um den Zufallsgenerator zu initialisieren. Randomize darf nach dem ersten Gebrauch von Random nicht mehr aufgerufen werden. Ein passender Ort für den Aufurf von Randomize ist etwa der Initialization-Abschnitt der Unit oder das OnCreate-Ereignis des Hauptformulars:

initialization
  Randomize;

oder

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
end;