Zufallfarbe

[Maduser]

Und das ist auch beides Möglich.
Das mit Result, aber nur wenn der erweitere Syntax an ist.

Dazu die Delphi Hilfe:

Zitat:

Ein Beispiel:

Delphi-Quellcode:

function WF: Integer;
begin
  WF := 17;
end;

Diese Deklaration definiert eine Konstantenfunktion namens WF, die keine Parameter entgegennimmt und immer den Integerwert 17 zurückgibt. Diese Deklaration ist zur folgenden äquivalent:

Delphi-Quellcode:

function WF: Integer;
begin
  Result := 17;
end;

[Thorben77]

Wieder was dazugelernt :zwinker:

(Ich find die Lösung mit Result aber verständlicher.)

[Angel4585]

Fahlt da nicht noch ein

Randomize;?

[Grishnak]

Für Zufallszahlen zwischen 0 und 15 bitte ein "Random(16)" benutzen!

[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 ;-)