请教一个关于Windows的问题。(100分)

  • 主题发起人 主题发起人 LeeDoN
  • 开始时间 开始时间
L

LeeDoN

Unregistered / Unconfirmed
GUEST, unregistred user!
怎么样才能做一个软件能类似于WindowsXp任务管理器那样的信息统计的曲线图呢???
请各位大侠多多帮忙!!谢了。
代码:
[8D]
 
Teechart6 for D7 可以实现类似功能!
 
应该就是作动态曲线的问题吧
我以前遇到过,后来解决了
用TeeChart 实现,有范例,加一点编程就可以实现。
procedure TDlgStat.dongtaiqux;
var
Titlestr:TstringList;
begin
Aseries:=TBezierSeries.Create(self);
Dbchart1.AddSeries(Aseries);
Aseries.FillSampleValues(1);
dbchart1.View3D:=False;
Aseries.ShowInLegend:=False;
//调节Axis 的结束位置
dbchart1.BottomAxis.EndPosition:=95;
num:=1;
timer1.Enabled:=true;
Aseries.SeriesColor:=clRed;
Aseries.Pointer.Style:=psDiamond;
Aseries.Pointer.HorizSize:=2;
Aseries.Pointer.VertSize:=2;
Aseries.BezierStyle:=bsBezier4;
arrbound:=high(arrint);
SetWindowPos(Self.handle,HWND_Top,0,0,755,633, SWP_SHOWWINDOW);
Self.SetFocus;
With Aseriesdo
begin
Delete(0);
end;
tmpX:=1;
end;

procedure TDlgStat.Timer1Timer(Sender: TObject);
begin
if num<arrbound then
begin
With Aseriesdo
begin
//反应每次的 横坐标的变化幅度
//tmpX:=XValues[1]-XValues[0];
//Delete(0);
// 横坐标是否从0开始
//delete(1);
AddXY(XValues.Last+tmpX,arrint[num],'',clTeeColor);
end;
num:=num+1;
end
else
begin
timer1.Enabled:=False;
showmessage('Finished!');
end
end;
 
TeeChar是一个好控件,真的要好好研究一下噢。
 
多人接受答案了。
 
后退
顶部