Question

请教个很简单的delphi程序

我想设置个按牛 显示／隐藏

显示的代码 label1.visible:=true;
隐藏的代码 label1.visible:=false;

我想搞成一按件就能控制2个的样子,也就是如果目前是隐藏的,那么点一下就是显示,如果目前是显示的,那么点一下就隐藏.

这个怎么弄?
procedure TForm1.Button3Click(Sender: TObject);
begin
label1.visible:=false;

label1.visible:=true;
end;

我这样写是不是不对啊?

Answer 1

procedure TForm1.Button3Click(Sender: TObject);
begin
if label1.visible then label1.visible:=false
else label1.visible:=true;
end;