Developer
75 lines
1.8 KiB
ObjectPascal
75 lines
1.8 KiB
ObjectPascal
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.
|