procedure TForm1.Button1Click(Sender: TObject);
begin
if (Rot_sh.Brush.Color = clred) And (gelb_sh.Brush.Color = clsilver) And (gruen_sh.Brush.color = clsilver)
then gelb_sh.Brush.color:=clyellow;
end;
Glaub ich :)
cu RFZ
nicht angemeldet nicht angemeldetprocedure TForm1.Button1Click(Sender: TObject);
begin
if (Rot_sh.Brush.Color = clred) And (gelb_sh.Brush.Color = clsilver) And (gruen_sh.Brush.color = clsilver)
then gelb_sh.Brush.color:=clyellow;
end;
Glaub ich :)
cu RFZ