Zufallsfarbe generieren |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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;
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;
Randomize;
oder
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
end;
begin
Randomize;
end;