怎么找x=1.y=1的点?

解决方案 »

  1.   

    你的意思是什么?你要加这个点吗?
    给你一点东西,做参考。
        With Chart do
        begin
          Icon.Handle := LoadIcon(HInstance,'OurwayIcon');
          Caption:=pChart.sFormCaption;
          ctOrientation := pChart.tPaperState;
          iMax:=Length(pChart.stValue);
          myChart.Legend.Visible:=false;          //去掉右边"直线图,方块图"的说明
          with myChart.Title do
          begin
            Text.Clear;
            Font:=Chart.Font;
            Font.Size:=16;
            Font.Style:=[fsBold];
            Text.Add(pChart.sTitle);
            Text.Add('');
          end;
          //设置页脚的标题以及字体
          with myChart.Foot do
          begin
            Text.Clear;
            Font:=Chart.Font;
            Text.Text:=pChart.sFoot;
            Text.Insert(0,'');
            for i:=0 to Text.Count-1 do
              Text.Strings[i]:=Format('%-40s',[Text.Strings[i]]);
          end;
          //设置左边的标题以及标题的字体
          myChart.LeftAxis.Title.Font.Name:='@宋体';
          myChart.LeftAxis.Title.Font.Size:=10;
          myChart.LeftAxis.Title.Angle:=270;
          myChart.LeftAxis.Title.Caption:=pChart.sYLabel;
          //设置方块条底部的字体
          myChart.BottomAxis.LabelsFont:=Chart.Font;
          myChart.BottomAxis.Title.Caption:=pChart.sXLabel;
          myChart.SeriesList.Clear;      myChart.AddSeries(TBarSeries.Create(myChart));
          for i:=0 to iMax-1 do
            myChart.Series[0].Add(pChart.stValue[i].dValues,pChart.stValue[i].sName);      myChart.AddSeries(TPieSeries.Create(myChart));
          for i:=0 to iMax-1 do
            if pChart.stValue[i].dValues<>0 then
              myChart.Series[1].Add(pChart.stValue[i].dValues,pChart.stValue[i].sName);      myChart.AddSeries(TLineSeries.Create(myChart));
          for i:=0 to iMax-1 do
            myChart.Series[2].Add(pChart.stValue[i].dValues,pChart.stValue[i].sName);      with (myChart.Series[0] as TBarSeries) do
          begin
            ColorEachPoint:=true;
            Marks.Style := smsValue;          //标签显示当前值
          end;      with (myChart.Series[1] as TPieSeries) do
          begin
            Marks.Style:= smsLabelPercent;
          end;      //设置直线图
          with (myChart.Series[2] as TLineSeries) do
          begin
            Marks.Style := smsValue;          //标签显示当前值
            Marks.Visible := True;
            Marks.ArrowLength := 24;
            SeriesColor := clRed;             //设置线的颜色
            Color:=clBlack;
            Pointer.InflateMargins := True;
            Pointer.Visible := True;          //线的转折点显示标记
            Pointer.Style := psDiamond;       //标记为棱形
          end;
          myChart.AllowZoom:=false;
          myChart.AllowPanning:=pmNone;
          myChart.AnimatedZoom:=false;
        end;
      

  2.   

    我在上面添加了三种类型分别是:
    TBarSeries  条形图 (myChart.AddSeries(TBarSeries.Create(myChart));)
    TPieSeries  饼图 
    TLineSeries 折线图
    根据添加的顺序,
    Series[0]为TBarSeries
    Series[1]为TPieSeries
    Series[2]为TLineSeries