Hallo, ich versuche gerade einige Panels mit einer beliebigen Farbe zu füllen (Rot, Blau, Grün, Gelb oder Schwarz). Ich weiß aber echt nicht wie ich es anstellen soll. Mein Ansatz funktioniert nicht, hat jemand eine bessere Idee?
Delphi-Quellcode:
var
Form1: TForm1;
a,b,c,d,e:tcolor;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
farbe:string;
begin
farbe:='abcde';
a:=clred;
b:=clblue;
c:=clyellow;
d:=clgreen;
e:=clblack;
panel1.Color:=stringtocolor(copy(farbe,random(5)+1,1));
end;