一个控件由三个Panel 组成底下一个上面两个,但是如何响应上面两个Panel 的OnClick事件呢? 就是如何写两个不同的Click 稍微有点难度,好象没有人感兴趣 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Panel1Click(Sender: TObject);begin Panel3.Tag := 1; Panel3.OnClick(Panel3);end;procedure TForm1.Panel2Click(Sender: TObject);begin Panel3.Tag := 2; Panel3.OnClick(Panel3);end;procedure TForm1.Panel3Click(Sender: TObject);begin case Panel3.Tag of 1: ; 2: ; end;end; 你说具体一点我看看你的代码 ADOQuery的问题 程序出错误? 庆祝个人专栏开通,放分 在线等待,立刻结贴,有答就有分,整型转化成字符!(不是字符串) 结算算法问题 能否对string型变量中的单个字符进行操作? sql里的触发器如何调试? 调查一下,各位所在的公司如果做ERP,用的开发工具和数据库是什么?你认为什么开发工具和数据库最适合开发ERP? 请教如何在动态生成的控件里写事件? 动态创建了一个Tqrsubdetail,如何加入beforprint事件? 网海拾贝 2001 beta 2 中的菜单是用什么控件做出来的? 向Delphi的各位关于工资管理系统的建库问题
begin
Panel3.Tag := 1;
Panel3.OnClick(Panel3);
end;procedure TForm1.Panel2Click(Sender: TObject);
begin
Panel3.Tag := 2;
Panel3.OnClick(Panel3);
end;procedure TForm1.Panel3Click(Sender: TObject);
begin
case Panel3.Tag of
1: ;
2: ;
end;
end;
我看看你的代码