Zufallfarbe

[Sharky]

Hier noch eine kleine Lösung von mir. Ohne Arrays oder so Zeug

Delphi-Quellcode:

function ZufallsFarbe : TColor;
var
  farbe: TPaletteEntry;
begin
  GetPaletteEntries(GetStockObject(DEFAULT_PALETTE), Random(16), 1, farbe);
  result := RGB(farbe.peRed, farbe.peGreen, farbe.peBlue);
end;

procedure TForm1.btn_FarbeClick(Sender: TObject);
begin
  Panel1.Color := ZufallsFarbe;
end;

P.S.: Natürlich nicht das Randomize im .OnCreate der Form vergessen