ok das problem ist behoben und ich bleibe ruhig bei 0-2 das ist egal ich brauche nur 3 verschiedene
nun zum nächsten:
mein problem liegt darin, dass ich gerne in den im quelltext erläuterten logs nicht die zahlen 0, 1 und 2 stehen haben möchte sondern die farben grün für 0, 1 für gelb und 2 für rot als worte
gleichzeitig sollen die labels zu den worten die passende farbe erhallten
klartext: random zahl ist zum beispiel=1 und ich drücke auf log
momentan= im passenden label erscheint die zahl 1 gelogt
so wie es sein soll= das passende label erhällt die farbe gelb und als labeltext steht 'Gelb'
wie ist das machbar?
erstmal mein quelltext mit hoffentlich guter erklährung:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Label9.caption := IntToStr(random(3));
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
end;
//gut das kommt ja von euch fürs random
procedure TForm1.Neu1Click(Sender: TObject);
begin
label1.caption := '';
label2.caption := '';
label3.caption := '';
label4.caption := '';
label5.caption := '';
label6.caption := '';
label7.caption := '';
label8.caption := '';
end;
//das hier löscht meine logs die logs werden gleich erklährt
{nun folgend sind buttonklicks die die zahl, die gerade als random in label 9 ausgegeben wurde in ein log-label eingibt,wie ein speicherplatz}
procedure TForm1.Button2Click(Sender: TObject);
begin
label1.caption := label9.caption;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
label2.caption := label9.caption;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
label3.caption := label9.caption;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
label4.caption := label9.caption;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
label5.caption := label9.caption;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
label6.caption := label9.caption;
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
label7.caption := label9.caption;
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
label8.caption := label9.caption;
end;