unit uLostDummy;

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
  TFrmLostDummy = 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);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmLostDummy: TFrmLostDummy;

implementation

{$R *.fmx}

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

procedure TFrmLostDummy.FormCreate(Sender: TObject);
begin
   TxtShowErrorInfo(TxtPasswordError,'');
end;

procedure TFrmLostDummy.Text1Click(Sender: TObject);
var
   aa:Extended;
begin
  if Trim(edit4.Text)='' then begin TxtPasswordError.Text:='数量不能为空';Exit;end;
  if not TryStrToFloat(edit4.Text,aa) then begin TxtPasswordError.Text:='数量类型错误，请重输入.';Exit;end;
  ModalResult:=mrOK;
 //  if edit4.Text='2022' then
 //     ModalResult:=mrOK
//   else
 //     TxtShowErrorInfo(TxtPasswordError,'密碼不正確,請重新輸入');
end;

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

end.