unit uPassword;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects,
  FMX.Controls.Presentation, FMX.Edit,uPucFun, System.Math.Vectors,
  FMX.Controls3D, FMX.Layers3D;

type
  TFrmPassword = class(TForm)
    Rectangle1: TRectangle;
    Rectangle4: TRectangle;
    Rectangle5: TRectangle;
    Text2: TText;
    Rectangle2: TRectangle;
    Rectangle3: TRectangle;
    Text1: TText;
    Rectangle6: TRectangle;
    Rectangle20: TRectangle;
    Text18: TText;
    Text19: TText;
    Edit4: TEdit;
    Layout3D1: TLayout3D;
    Rectangle8: TRectangle;
    TxtPasswordError: TText;
    procedure Text1Click(Sender: TObject);
    procedure Text2Click(Sender: TObject);
    procedure Edit4Enter(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit4KeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmPassword: TFrmPassword;

implementation

{$R *.fmx}

procedure TFrmPassword.Edit4Enter(Sender: TObject);
begin
   ShowTouchKeyBoard();
end;

procedure TFrmPassword.Edit4KeyUp(Sender: TObject; var Key: Word;
  var KeyChar: Char; Shift: TShiftState);
begin
  if key=13 then
    Text1Click(Sender);
end;

procedure TFrmPassword.FormCreate(Sender: TObject);
begin
   TxtShowErrorInfo(TxtPasswordError,'');
   self.Caption:= FactoryCode;
end;

procedure TFrmPassword.Text1Click(Sender: TObject);
begin
   if edit4.Text='2025' then
      ModalResult:=mrOK
   else
      TxtShowErrorInfo(TxtPasswordError,'密碼不正確,請重新輸入');
end;

procedure TFrmPassword.Text2Click(Sender: TObject);
begin
   //ShowTouchKeyBoard();
   ModalResult:=mrCancel;
end;

end.