论坛 › Delphi交流 › 红绿灯问题终于解决

杰克 发表于 2012-3-1 00:56:03

红绿灯问题终于解决

本帖最后由 杰克 于 2012-3-1 23:24 编辑

用了几天，学会一个小小的问题，解决心头疑难，开心呀，呵呵

procedure TForm1.Button1Click(Sender: TObject);
var
a:Boolean;
begin
a:= true;
if shape1.Visible= a then
    begin
   shape1.Visible:=not a;
   shape2.visible:= a ;
       end
       else if shape1.Visible=not a then
       begin
       shape1.Visible:=a;
       shape2.Visible:=not a;
       end;
end;
end.
http://ww1.sinaimg.cn/large/8db42c20gw1dqkbr9w09oj.jpg

杰克 发表于 2012-3-1 12:06:16

或者这样也行：
procedure TForm1.Button1Click(Sender: TObject);
var
    a:boolean;
    b:boolean;
begin
    a:=true;
    b:=false;
    if shape1.visible=b then
      begin
       shape1.visible:= a;
       shape2.Visible:= b;
       end
    else
         begin
          shape2.visible:=a;
         shape1.Visible:=b;

         end;
         end;

end.

就如丶初见 发表于 2013-3-14 20:38:55

呵呵 {:5_110:}

阳极泥 发表于 2013-3-14 21:14:55

抢沙发了，，，，

メ㊣逆ご帅☆ 发表于 2013-3-14 21:30:33

恭喜*^O^*
oyz

Angel丶L 发表于 2015-2-1 16:43:51

支持楼主发扬Delphi

心驰神往 发表于 2020-12-16 13:48:27

凉凉

查看完整版本: 红绿灯问题终于解决