inpbkmkfrm.pas

MiniHex 1.1 源程序说明 “MiniHex11SrcSource”目录中的所有文件是MiniHex 1.1的主程序； “MiniHex11SrcControls”目录中的是该软件

unit InpBkmkFrm;

interface

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

type
  TInpBkmkForm = class(TForm)
    OkButton: TButton;
    CanclButton: TButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    OffsetEdit: TEdit;
    DescriptionEdit: TEdit;
    procedure OkButtonClick(Sender: TObject);
    procedure CanclButtonClick(Sender: TObject);
  private
    { Private declarations }
    function CheckValid: Boolean;
  public
    { Public declarations }
    procedure SetData(Value: TBkmkItem);
    procedure GetData(var Value: TBkmkItem);
  end;

var
  InpBkmkForm: TInpBkmkForm;

function ShowInpBkmkForm(var Value: TBkmkItem): Boolean;

implementation

{$R *.DFM}

uses
  Misc;

function ShowInpBkmkForm(var Value: TBkmkItem): Boolean;
var
  Frm: TInpBkmkForm;
begin
  Frm := TInpBkmkForm.Create(Application);
  Frm.SetData(Value);
  Result := (Frm.ShowModal = mrOk);
  Frm.GetData(Value);
  Frm.Free;
end;

procedure TInpBkmkForm.SetData(Value: TBkmkItem);
begin
  OffsetEdit.Text := IntToStr(Value.Offset);
  DescriptionEdit.Text := Value.Description;
end;

procedure TInpBkmkForm.GetData(var Value: TBkmkItem);
begin
  Value.Offset := StrToIntDef(OffsetEdit.Text, 0);
  Value.Description := DescriptionEdit.Text;
end;

function TInpBkmkForm.CheckValid: Boolean;
begin
  Result := True;
  if not IsInt(OffsetEdit.Text) then
  begin
    Result := False;
    MessageBox(Handle, '偏移值非法。', '提示', 48);
    OffsetEdit.SetFocus;
    Exit;
  end;
end;

procedure TInpBkmkForm.OkButtonClick(Sender: TObject);
begin
  if CheckValid then
    ModalResult := mrOk;
end;

procedure TInpBkmkForm.CanclButtonClick(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

end.