procedure TMychart.Clear_data;
begin
Series1.clear;
end;
设置一下Aboutbox,在Mychart窗口中加入一个TPopupMenu,用户弹出菜单看到关于对话框。 添加一个Menuitem设置Caption:="关于(&A)...", onclick代码如下:
procedure TMychart.PM_AboutClick(sender:TObject);
begin
showMychartAbout;
end;
作用是显示关于对话框然后设置TChart的PopupMenu设置为加个的TPopupMenu就可以了!
如果工程名没有更改的,编译一下生成MychartProj1.ocx,注册这个控件就可以使用了。
对于浏览器,可以用下面方法让其它自动注册它:
Delphi中通过Project->Web Deloyment Options设置Web发布选项,简单设置如下:
Target dir: c:\document and settings\administrator\桌面\chart\html
Target URL: .
Html dir : c:\document and settings\administrator\桌面\chart\html
然后通过菜单 project -> web Deploy 在 c:\document and settings\administrator\桌面\chart\html 目录下生成两个文件,一个html,另一个ocx文件。
这里更改一下HTML文件加上个ID=mychart1,后面加些VBScript代码,如下:
<HTML>
<H1> Delphi 5 AcitveX Test Page </H1> <P>
You should see you Delphi 5 forms or controls embedded in the form below
<HR><center><P>
<OBJECT id=mychart1
classid="clsid:B977D48F1-4DDA-4F00-9781-EC7BA3278CBD"
codebase=" ./MychartProj1.oxc#version=1,0,0,0"
width=538
height=350
align=center
hspace=0
vspace=0
>
</OBJECT>
<script language=VBScript>
mychart1.Add_data 110,"1月"
mychart1.Add_data 180,"2月"
mychart1.Add_data 120,"3月"
mychart1.Add_data 100,"4月"
mychart1.Add_data 80,"5月"
mychart1.Add_data 90,"6月"
mychart1.Add_data 110,"7月"
mychart1.Add_data 109,"8月"
mychart1.Add_data 108,"9月"
mychart1.Add_data 78,"10月"
mychart1.Add_data 99,"11月"
mychart1.Add_data 101,"12月"
</script>
保存后再用浏览器打开HTML文件, 怎么样?这个Chart还行吧!
然后打开VB再试试,代码与上面的VBS一样.
在ASP中使用和HTML类似,你可通过ASP取出数据,然后使用Add_data方法。
Delphi中的Chart功能非常强大,你完全可以开发适合自己需要的统计图表控件,上面只是一个简简单单的示例。