rei_39s.pas

来自「Delphi经典游戏程序设计40例.pdf 中国铁道出版社出版 含源码」· PAS 代码 · 共 38 行

unit Rei_39s;

interface

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

type
  TRei40_39s = class(TForm)
    Image1: TImage;
    MainMenu1: TMainMenu;
    procedure Mselect(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private 宣告 }
  public
    { Public 宣告 }
  end;

var
  Rei40_39s: TRei40_39s;

implementation

uses Rei_39;

{$R *.dfm}

procedure TRei40_39s.Mselect(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  //  选择贴图图案
  Rei40_39.Pnum := (Y div 16) * 16 +X div 16;
end;

end.