delphi chart右键移动问题

[caoguocheng]

我想用命令移动chart图表，应该怎么移动？chart用鼠标右键按住可以移动图表，就想模拟这个样子，用程序控制移动。

[jjpweb]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure Memo1KeyPress(Sender: TObject; var Key: Char);
    procedure Memo1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure FormDragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure FormDragDrop(Sender, Source: TObject; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
      if Key=#13 then  Key:=#0;
end;

procedure TForm1.Memo1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
      Accept:=True;
end;

procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
     Accept:=True;
end;

procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
        Memo1.Top:=y;
    Memo1.Left:=x;
end;

end.

[jayqiang]

引用 楼主 caoguocheng 的回复:

我想用命令移动chart图表，应该怎么移动？chart用鼠标右键按住可以移动图表，就想模拟这个样子，用程序控制移动。

只需要要改变X轴和Y轴的最小值和最大值。 比如：leftaxis.setminmax(vmin,vmax)

[lqen]

var
   i: Integer;
begin
   Timer1.Tag := Timer1.Tag + 1;
   Randomize;
   i := Random(100);
   ls.AddXY(Timer1.Tag.ToDouble, i.ToDouble, Timer1.Tag.ToString, TAlphaColors.Blue);

   with Chart1.BottomAxis do
   begin
      Automatic := false;
      SetMinMax(Timer1.Tag - 30, Timer1.Tag);
   end;
end;