为什么button4中button1和button2的功能不实现?(在线等) 嘻嘻,我试一试;你选中:button4打开设置事件,将其onclick给删除了,然后,再双击它,写进去,嘻嘻; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 把 button2.Visible:=true;改为 button2.enabled:=true; 嘻嘻,首先: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; Treeview2.Color:=clbackground; Treeview2.Enabled:=False;这两句执行了但两个button 没有执行 嘻嘻,你多贴一点,你以前Visible := False?还是动态创建的? 嘻嘻,你多贴一点,你以前Visible := False?还是动态创建的? 在他的属性里我设为了Visible := False 嘻嘻,真有趣;你这样,在Button4.Onclick 里写上 Button1.Onclick(Sender) //不然就是Button1.OnClick; 看一看,可不可以? 其它的先注释了; 现在他已经可以实现了具体程序是这样的procedure TForm1.Button4Click(Sender: TObject);beginbutton1.Visible:=true;button3.visible:=false;button2.Visible:=true;button4.visible:=false;treeview2.color:=clbackground;treeview2.Enabled:=false;end;谢谢各位给我捧场我马上就结贴 运行时可用内存愈来愈小,如何查错? ▲▲CodeGurad跟踪出来的问题▲▲ 一个很不错的学习资料网站,有很多教学视频资料下载,晚了就没了. 前台在post时候老提示“Field 'ID' must have a value”,为什么??? 关于动态查询中的字符串匹配问题 初学者的问题!!!!!(2) 如何用DELPHI实现在磁盘任一目录下新建一个空文件夹? 求助!哪里有关于公寓管理系统的界面或源码下载 菜鸟问题:请问inherited是什么意思,继承什么 发发牢骚,顺便散分! 怎样排序?急 请教sql语句的select
首先: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;
Treeview2.Enabled:=False;
这两句执行了
但两个button 没有执行
你这样,在Button4.Onclick 里写上
Button1.Onclick(Sender) //不然就是Button1.OnClick;
看一看,可不可以?
其它的先注释了;
具体程序是这样的
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;谢谢各位给我捧场
我马上就结贴