unit1.pas

学习Delphi最好的教材。通过一个个简单而实用的实例

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Timer1: TTimer;
    Button3: TButton;
    procedure FormPaint(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x:Integer=4;
  y:Integer=0;

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
var
  i:Integer;
begin
  Canvas.Brush.Color:=clRed;
  for i:=0 to 10 do
  begin
    Canvas.MoveTo(20+20*i,20);  //第i条竖线的起点坐标
    Canvas.LineTo(20+20*i,420); //第i条竖线的终点坐标
  end;
  for i:=0 to 20 do
  begin
    Canvas.MoveTo(20,20+20*i);  //第i条横线的起点坐标
    Canvas.LineTo(220,20+20*i); //第i条横线的终点坐标
  end;
  Canvas.Rectangle(20+x*20,20+y*20,40+x*20,100+y*20);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  x:=x+1;
  Repaint;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  x:=x-1;
  Repaint;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  y:=y+1;
  Repaint;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Timer1.Enabled:=not Timer1.Enabled;
  if Timer1.Enabled then Button3.Caption:='暂停'
    else Button3.Caption:='继续';
end;

end.