installu.pas

在深度历险网站上发布的所有delphi程序原码。对初学delphi者很有用。

unit installu;

interface

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

type
  TMainForm = class(TForm)
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label3: TLabel;
    BitBtn3: TBitBtn;
    imgKnight: TImage;
    Timer: TTimer;
    procedure FormPaint(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure TimerTimer(Sender: TObject);
    procedure FormDblClick(Sender: TObject);
  private
    { Private declarations }
    FSysDir: string;
  public
    { Public declarations }
  end;
  
var
  MainForm: TMainForm;
  
implementation

const
  step_x: Integer = 10;
  step_y: Integer = 10;
  
  {$R *.DFM}
  
procedure TMainForm.FormPaint(Sender: TObject);
const
  Level: Integer = 200; // だ