起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 138|回复: 5

【搞定】放大按钮!**

[复制链接]
发表于 2007-12-3 21:00:13 | 显示全部楼层 |阅读模式
纵坐标和图形显示是两个控件,点击放大按钮怎样同时放大两个控件,现在只能放大图型不能放大纵坐标

20.jpg

123.57 KB, 下载次数: 98

回复

使用道具 举报

发表于 2007-12-4 09:09:49 | 显示全部楼层
那个工具栏应该自己做一个,然后代码写2个控件的放大缩小。
代码不会很难,因为actionlist自带的,可以参考
业务模型\系统空间\简洁风格\界面库\工具栏\数据图表。
自带工具栏是自动侦测1个控件的。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-12-4 10:49:16 | 显示全部楼层
给个例子吧!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-12-4 11:05:43 | 显示全部楼层
不要自动侦测,手工指定如何写代码?
回复 支持 反对

使用道具 举报

发表于 2007-12-4 13:19:35 | 显示全部楼层
procedure TTB1.Button1Click(Sender: TObject);
begin
  TChartAction(ActionList1.Actions[0]).Chart:=DataChart;
  ActionList1.Actions[0].Execute;
   TChartAction(ActionList1.Actions[0]).Chart:=DataChart1;
  ActionList1.Actions[0].Execute;
end;
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-12-5 22:29:22 | 显示全部楼层
结帐!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-1 21:09 , Processed in 0.045987 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表