inputset.pas

delphi编制的nes模拟器－－tNes

unit inputset;

interface

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

type
  TfrmInputSet = class(TForm)
    grp1: TGroupBox;
    btn1Up: TSpeedButton;
    btn1Down: TSpeedButton;
    btn1Left: TSpeedButton;
    btn1Right: TSpeedButton;
    btn1Select: TSpeedButton;
    btn1Start: TSpeedButton;
    btn1A: TSpeedButton;
	btn1B: TSpeedButton;
    lbl1Up: TLabel;
    lbl1Left: TLabel;
    lbl1Right: TLabel;
    lbl1Down: TLabel;
    lbl1Select: TLabel;
    lbl1Start: TLabel;
    lbl1A: TLabel;
    lbl1B: TLabel;
    btnOk: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btn1UpClick(Sender: TObject);
    procedure btn1DownClick(Sender: TObject);
    procedure btn1LeftClick(Sender: TObject);
    procedure btn1RightClick(Sender: TObject);
    procedure btn1SelectClick(Sender: TObject);
    procedure btn1StartClick(Sender: TObject);
    procedure btn1AClick(Sender: TObject);
    procedure btn1BClick(Sender: TObject);
    procedure btnOkClick(Sender: TObject);
  private
	{ Private declarations }
	index:Integer;
	procedure mykeydown(var msg:Twmkeydown);message wm_keydown;

  public
    { Public declarations }
  end;

var
  frmInputSet: TfrmInputSet;

implementation
uses main,DXInput;
{$R *.dfm}

{ TForm1 }

procedure TfrmInputSet.mykeydown(var msg: Twmkeydown);
begin
	case index of
	0:lbl1Up.Caption:=inttostr(msg.charcode);
	1:lbl1Down.Caption:=inttostr(msg.charcode);
	2:lbl1Left.Caption:=inttostr(msg.charcode);
	3:lbl1Right.Caption:=inttostr(msg.charcode);
	4:lbl1Select.Caption:=inttostr(msg.charcode);
	5:lbl1Start.Caption:=inttostr(msg.charcode);
	6:lbl1A.Caption:=inttostr(msg.charcode);
	7:lbl1B.Caption:=inttostr(msg.charcode);
	end;

	index:=-1;
end;

procedure TfrmInputSet.FormCreate(Sender: TObject);
begin
	index:=-1;
	lbl1Up.Caption:=inttostr(mainWin.RAssignKey(mainWin.dxi1.keyboard.keyAssigns,isUp));
	lbl1Down.Caption:=inttostr(mainWin.RAssignKey(mainWin.dxi1.keyboard.keyAssigns,isDown));
	lbl1Left.Caption:=inttostr(mainWin.RAssignKey(mainWin.dxi1.keyboard.keyAssigns,isLeft));
	lbl1Right.Caption:=inttostr(mainWin.RAssignKey(mainWin.dxi1.keyboard.keyAssigns,isRight));

	lbl1A.Caption:=inttostr(mainWin.RAssignKey(mainWin.dxi1.keyboard.keyAssigns,isButton1));
	lbl1B.Caption:=inttostr(mainWin.RAssignKey(mainWin.dxi1.keyboard.keyAssigns,isButton2));
	lbl1Select.Caption:=inttostr(mainWin.RAssignKey(mainWin.dxi1.keyboard.keyAssigns,isButton3));
	lbl1Start.Caption:=inttostr(mainWin.RAssignKey(mainWin.dxi1.keyboard.keyAssigns,isButton4));
end;

procedure TfrmInputSet.btn1UpClick(Sender: TObject);
begin
	index:=0;
	lbl1Up.Caption:='';
end;

procedure TfrmInputSet.btn1DownClick(Sender: TObject);
begin
	index:=1;
	lbl1Down.Caption:='';
end;

procedure TfrmInputSet.btn1LeftClick(Sender: TObject);
begin
	index:=2;
	lbl1Left.Caption:='';
end;

procedure TfrmInputSet.btn1RightClick(Sender: TObject);
begin
	index:=3;
	lbl1Right.Caption:='';
end;

procedure TfrmInputSet.btn1SelectClick(Sender: TObject);
begin
	index:=4;
	lbl1Select.Caption:='';
end;

procedure TfrmInputSet.btn1StartClick(Sender: TObject);
begin
	index:=5;
	lbl1Start.Caption:='';
end;

procedure TfrmInputSet.btn1AClick(Sender: TObject);
begin
	index:=6;
	lbl1a.Caption:='';
end;

procedure TfrmInputSet.btn1BClick(Sender: TObject);
begin
	index:=7;
	lbl1b.Caption:='';
end;

procedure TfrmInputSet.btnOkClick(Sender: TObject);
begin
	mainWin.WAssignKey(mainWin.dxi1.keyboard.keyAssigns,isUp,StrToInt(lbl1Up.Caption));
	mainWin.WAssignKey(mainWin.dxi1.keyboard.keyAssigns,isdown,StrToInt(lbl1down.Caption));
	mainWin.WAssignKey(mainWin.dxi1.keyboard.keyAssigns,isleft,StrToInt(lbl1left.Caption));
	mainWin.WAssignKey(mainWin.dxi1.keyboard.keyAssigns,isright,StrToInt(lbl1Right.Caption));
	mainWin.WAssignKey(mainWin.dxi1.keyboard.keyAssigns,isButton1,StrToInt(lbl1A.Caption));
	mainWin.WAssignKey(mainWin.dxi1.keyboard.keyAssigns,isbutton2,StrToInt(lbl1B.Caption));
	mainWin.WAssignKey(mainWin.dxi1.keyboard.keyAssigns,isbutton3,StrToInt(lbl1Select.Caption));
	mainWin.WAssignKey(mainWin.dxi1.keyboard.keyAssigns,isbutton4,StrToInt(lbl1Start.Caption));
	close;
end;

end.