67版

Hong

2018-10-11 a2d1a029bb51e76e0136adafd475aba99a2c9a5c

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
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.