5,388
社区成员
发帖
与我相关
我的任务
分享
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;
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.