红绿灯引发的第二个问题：请求帮忙解决纠正
菜鸟突发奇想，做三个灯，不同颜色，第一种情况，如果当第一个灯为clYellow ，那其他两个就分别为clGray，clGreen，这个一测试成功了，procedure TForm1.FormCreate(Sender: TObject);
begin
if Shape1.Brush.Color=clYellow then
Shape2.Brush.Color:=clGray ;
Shape3.Brush.Color:=clGreen ;
end;
第二情况：想让一个按钮来控制，当按下按钮时，第三个灯如果为clgreen，按下之后那么就实现第二个灯为clred，第一个灯为cllime。但是出现错误了，不能进行，请问为什么，
procedure TForm1.Button1Click(Sender: TObject);
begin
if Shape3.Brush.Color:=clGreen then
Shape2.Brush.Color:=clRed ;
Shape1.Brush.Color=clLime ;
end;
end.
http://ww2.sinaimg.cn/large/8db42c20gw1dqifl53cb2j.jpg
页:
[1]