delphi6如何用程序修改chart1.series[0]的Axis?

Question

谢谢！

Answer 1

Chart1.LeftAxis.Visible:=true;
          With Chart1.LeftAxis do
          begin
                 Automatic := False;
                 if maximum<singmina then
                        maximum:=singmina;
                 if minimum>singmaxA then
                        minimum:=singmaxA;                 Maximum := singmaxA+20;
                 Minimum := singmina-5;
                 Increment:=3;         end;           for inti:=low(ArrayNdDate) to high(ArrayNdDate) do
           begin
                if Arraynddate[inti]<>0 then
                begin                    series1.Add(Arraynddate[inti],arrayYear[inti]);               end;
           end;//end-for           series6.Active:=true;
           series6.VertAxis:=aRightAxis;           series6.Title:=TreeView1.Selected.Text+' &Ocirc;&ouml;&Euml;&Ugrave;';
           series6.HorizAxis:=series1.HorizAxis;           tagK:='novalue' ;
           for inti:=low(ArrayNdDate1) to high(ArrayNdDate1) do
           begin
                if Arraynddate1[inti]<>0 then
                begin
                   if  tagK='novalue'   then
                   begin
                        SingMInA:=Arraynddate1[inti];
                        SingMaxA:=Arraynddate1[inti] ;
                        tagk:='haveValue' ;
                   end;                   if   tagk='haveValue' then
                   begin
                        if SingminA> Arraynddate1[inti]  then
                               singminA:= Arraynddate1[inti] ;
                        if singmaxA<   Arraynddate1[inti] then
                               singmaxA:= Arraynddate1[inti];                  end;               end;
          end;          With Chart1.RightAxis do
          begin
                 Automatic := False;
                 if maximum<singmina then
                        maximum:=singmina;
                 if minimum>singmaxA then
                        minimum:=singmaxA;                 Maximum := singmaxA+5;
                 Minimum := singmina-5;
                 Increment:=3;         end;
         for inti:=low(ArrayNdDate1) to high(ArrayNdDate1) do
         begin
              if Arraynddate1[inti]<>0 then
              begin                   series6.Add(Arraynddate1[inti],arrayYear[inti]);              end
              else
                  series6.Addnull(arrayYear[inti]);