regeditunit.pas

来自「DELPHI 下远程控制源码」· PAS 代码 · 共 59 行

unit RegEditUnit;

interface

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

type
  TRegEditFm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit2KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RegEditFm: TRegEditFm;

implementation

{$R *.dfm}

procedure TRegEditFm.BitBtn2Click(Sender: TObject);
begin
   Close;
end;

procedure TRegEditFm.BitBtn1Click(Sender: TObject);
begin
   self.Tag:=100;
   Close;
end;

procedure TRegEditFm.Edit2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Self.Caption='编辑双字节值' then
   begin
      Try 
        Edit2.Tag:=StrToInt(Edit2.Text);
      except
        Edit2.Text:='0';
      end;
   end;
end;

end.