fscrlxy.pas

来自「传奇Map地图编辑源码 一个很不错的源码哦」· PAS 代码 · 共 49 行

unit FScrlXY;

interface

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

type
  TFrmScrollMap = class(TForm)
    X: TLabel;
    Label1: TLabel;
    EdX: TEdit;
    EdY: TEdit;
    Button1: TButton;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
  public
    procedure Execute (var xscr, yscr: integer);
  end;

var
  FrmScrollMap: TFrmScrollMap;

implementation

{$R *.DFM}

procedure TFrmScrollMap.Execute (var xscr, yscr: integer);
begin
   EdX.Text := '';
   EdY.Text := '';

   ShowModal;

   xscr := Str_ToInt (EdX.Text, 0);
   yscr := Str_ToInt (EdY.Text, 0);

end;


procedure TFrmScrollMap.Button1Click(Sender: TObject);
begin
   Close;
end;

end.