为什么button4中button1和button2的功能不实现？（在线等）

Question

嘻嘻，我试一试；
你选中：
button4打开设置事件，将其onclick给删除了，然后，再双击它，写进去，嘻嘻；

Answer 1

把 button2.Visible:=true;改为 button2.enabled:=true;

Answer 2

嘻嘻，
首先：button4.Enabled := True//不好意思；
把Button4的ActiveTcontrol都去掉，确定事件对应的就是它；
再问，是不是Button4.onclick里的一句都没有执行？procedure TForm1.Button4Click(Sender: TObject);begin
  ShowMessage('嘻嘻---Button4报告啦---嘻嘻');//看是没有执行还是没有执行成功；
  Button1.Visible:=True;
  Button2.Visible:=True;
  Treeview2.Color:=clbackground;
  Treeview2.Enabled:=False;
end;

Answer 3

Treeview2.Color:=clbackground;
  Treeview2.Enabled:=False;
这两句执行了
但两个button 没有执行

Answer 4

嘻嘻，你多贴一点，你以前Visible := False?还是动态创建的？

Answer 5

嘻嘻，你多贴一点，你以前Visible := False?还是动态创建的？

Answer 6

在他的属性里我设为了Visible := False

Answer 7

嘻嘻，真有趣；
你这样，在Button4.Onclick 里写上
         Button1.Onclick(Sender) //不然就是Button1.OnClick;
   看一看，可不可以？
  其它的先注释了；

Answer 8

现在他已经可以实现了
具体程序是这样的
procedure TForm1.Button4Click(Sender: TObject);begin
button1.Visible:=true;
button3.visible:=false;
button2.Visible:=true;
button4.visible:=false;
treeview2.color:=clbackground;
treeview2.Enabled:=false;end;谢谢各位给我捧场
我马上就结贴