ntview.pas

来自「delphi编制的nes模拟器－－tNes」· PAS 代码 · 共 38 行

unit NTView;

interface

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

type
  TfrmNTV = class(TForm)
    pb1: TPaintBox;
    lbl1: TLabel;
  private
    { Private declarations }
  public
	{ Public declarations }
	x:Integer;
	y:Integer;
	procedure showNT(var bmp:TBitmap);
  end;

var
  frmNTV: TfrmNTV;

implementation

{$R *.dfm}

{ TfrmNTV }

procedure TfrmNTV.showNT(var bmp: TBitmap);
begin
  //	pb1.Canvas.Draw(0,0,bmp);
	lbl1.Caption:='X :='+inttostr(x)+' Y: ='+inttostr(y); 
end;

end.