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