鱼C论坛

 找回密码
 立即注册
查看: 3778|回复: 6

[技术交流] 红绿灯问题终于解决

[复制链接]
发表于 2012-3-1 00:56:03 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

x
本帖最后由 杰克 于 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.

                               
登录/注册后可看大图

想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
 楼主| 发表于 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.
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2013-3-14 20:38:55 | 显示全部楼层
呵呵
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2013-3-14 21:14:55 | 显示全部楼层
抢沙发了,,,,
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2013-3-14 21:30:33 | 显示全部楼层
恭喜*^O^*
oyz
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2015-2-1 16:43:51 | 显示全部楼层
支持楼主发扬Delphi
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2020-12-16 13:48:27 | 显示全部楼层
凉凉
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-3-29 08:35

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表