unit InputMask;

interface

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

type
  TInputMaskForm = class(TForm)
    MaskEdit1: TMaskEdit;
    OkBt: TButton;
    CancelBt: TButton;
    PolicyNoLb: TLabel;
    MaskEdit2: TMaskEdit;
    MaskEdit3: TMaskEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure OkBtClick(Sender: TObject);
    procedure CancelBtClick(Sender: TObject);
    procedure MaskEdit1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure MaskEdit2KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure MaskEdit3KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  InputMaskForm: TInputMaskForm;

implementation

{$R *.dfm}

procedure TInputMaskForm.MaskEdit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if length(MaskEdit1.Text) = 10 then
    MaskEdit2.SetFocus;
end;

procedure TInputMaskForm.MaskEdit2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if length(MaskEdit2.Text) = 2 then
    MaskEdit3.SetFocus;
end;

procedure TInputMaskForm.MaskEdit3KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if length(MaskEdit3.Text) = 1 then
    OkBt.SetFocus;
end;

procedure TInputMaskForm.OkBtClick(Sender: TObject);
begin
  if length(Trim(MaskEdit2.Text)) = 1 then
    MaskEdit2.Text := '0'+MaskEdit2.Text;
  if (Length(Trim(MaskEdit1.Text)) <> 10) or (Length(Trim(MaskEdit2.Text)) <> 2) then
  begin
    Showmessage(_Msg('¿é¤J®æ¦¡¿ù»~'));
    Exit;
  end;
  ModalResult := mrOK;
end;

procedure TInputMaskForm.CancelBtClick(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

end.