glight.pas

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

unit glight;

interface

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

type
  TFrmGetLight = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    procedure FormShow(Sender: TObject);
  private
  public
    function GetValue (oldvalue: integer): integer;
  end;

var
  FrmGetLight: TFrmGetLight;

implementation

{$R *.DFM}

function TFrmGetLight.GetValue (oldvalue: integer): integer;
begin
   Edit1.Text := IntToStr(oldvalue);
   ShowModal;
   Result := Str_ToInt (Edit1.Text, 0);
end;

procedure TFrmGetLight.FormShow(Sender: TObject);
begin
   Edit1.SetFocus;
   Edit1.SelStart := 0;
   Edit1.SelLength := 100;
end;

end.