rei_01.pas

Delphi经典游戏程序设计40例.pdf 中国铁道出版社出版 含源码

unit Rei_01;

interface

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

type
  TRei40_01 = class(TForm)
    Timer1: TTimer;
    MainMenu1: TMainMenu;
    Image1: TImage;
    Image2: TImage;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private 定义 }
  public
    { Public 定义 }
  end;

var
  Rei40_01: TRei40_01;
  //  移动时的偏移值
  Xadd: Shortint = 1;
  Yadd: Shortint = 1;

implementation

{$R *.DFM}

procedure TRei40_01.FormCreate(Sender: TObject);
begin
  //  设定Form的相关属性
  Rei40_01.Height := 480;
  Rei40_01.Width := 640;
  Image1.Height := 432;
  Image1.Width := 592;
  Image1.Left := (ClientWidth - Image1.Width) div 2;
  Image1.Top := (ClientHeight - Image1.Height) div 2;
  Image2.Height := 32;
  Image2.Left := 320;
  Image2.Top := 240;
  Image2.Width := 32;
end;

procedure TRei40_01.Timer1Timer(Sender: TObject);
begin
  //  根据ICON位置变更移动偏移量
  if Image2.Left <= Image1.Left then
    Xadd := 1
  else if Image2.Left + Image2.Width >= Image1.Left + Image1.Width then
    Xadd := -1;
  if Image2.Top <= Image1.Top then
    Yadd := 1
  else if Image2.Top + Image2.Height >= Image1.Top + Image1.Height then
    Yadd := -1;
  //  变更ICON位置
  Image2.Left := Image2.Left + Xadd;
  Image2.Top := Image2.Top + Yadd;
end;

end.