点击按钮显示隐藏按钮。

Question

formcreate中设置button2,button3,button4的visible=false,我想点击button1,然后显示button2,button3,button4. 再点击button1，3个按钮隐藏。请问该怎么写？

Answer 1

button1click
if button2.visible=false then
begin 
button2.visible:=true;
button3.visible:=true;
button4.visible:=true;
end else
begin 
button2.visible:=false;
button3.visible:=false;
button4.visible:=false;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button2.Visible := not Boolean(Tag);
  Button3.Visible := not Boolean(Tag);
  Button4.Visible := not Boolean(Tag);
  Tag := Byte(not Boolean(Tag));
end;

Answer 3

改一下。procedure TForm1.Button1Click(Sender: TObject);
begin
  Button2.Visible := not Boolean(Tag);
  Button3.Visible := not Boolean(Tag);
  Button4.Visible := not Boolean(Tag);
  Button1.Tag := Byte(not Boolean(Tag));
end;

Answer 4

///晕。再改。
procedure TForm1.Button1Click(Sender: TObject);
begin
with Button1 do begin
  Button2.Visible := not Boolean(Tag);
  Button3.Visible := not Boolean(Tag);
  Button4.Visible := not Boolean(Tag);
  Tag := Byte(not Boolean(Tag));
end;
end;

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button2.Visible := not Button2.Visible;
  Button3.Visible := not Button3.Visible;
  Button4.Visible := not Button4.Visible;
end;

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button2.Visible := not Button2.Visible;
  Button3.Visible := not Button3.Visible;
  Button4.Visible := not Button4.Visible;
end;