不需要很高深。 就比如怎么定横纵坐标,数值怎么加进去我想画个简单的LINE。。就是定几个点,用线连起来各位来帮帮忙啊
解决方案 »
- Delphi开发1群已满,欢迎进入此群学习93282714
- 如何让CD从声卡发声
- 怎么把Tchart控件显示的图形按比例缩放?应该如何做?图形不能变形。
- 关于dbgrid的一个小问题
- {$H+} 这个这是什么意思啊????————————在线等待?!!
- 如何知道一个ACCESS数据库中有哪些表?
- 无法控制ListView在vsIcon模式下被选中以外Item文字的字体。
- 下班之前就要解决的问题,好急,再次关于打包问题!!帮帮帮
- 紧急求救:我想控制MDI窗口的大小及出现位置。该怎么做?MDI全部通过form1继承
- 鼠标CLICK了哪个对象?
- 怪事..关于ADOQuery的Calculated字段类型问题....
- 大侠们看看问题出在哪儿
老兄,你都三个裤头了,怎么还问这重问题。
留个mail,传给你。
var
Amount:Double;
begin
self.Caption:='现在的温度是'+FloatToStr(roundto(Main.ValueT,-2))+'摄氏度';
with Chart1 do
begin
with Series[0] do
if Count>(10000/Timer1.Interval) then
begin
Delete(0);
AddXY(i,Main.ValueT,'',clTeeColor);
With Chart1.BottomAxis do
begin
Amount:=roundto(((Maximum-Minimum)/Count),-1);
SetMinMax(Minimum+Amount,Maximum+Amount);
end;
end
else
AddXY(i,Main.ValueT,'',clTeeColor);
end;
MainForm.LedDisplay1.Number:=trunc(Main.ValueT/10);
MainForm.LedDisplay2.Number:=trunc((Main.ValueT-trunc(Main.ValueT/10)*10));
i := i + Timer1.Interval/1000;
end;