红绿灯问题终于解决

杰克 · 发表于 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.

登录/注册后可看大图

杰克 · 发表于 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

呵呵

阳极泥 · 发表于 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

凉凉

账号		自动登录	找回密码
密码			立即注册

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

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