PIN/passcode entry control with customizable length and visual feedback, ideal for app security.
PassLock1.PasscodeLength := 4; PassLock1.ShowKeyboard := True; PassLock1.AutoSubmit := True; PassLock1.ActiveColor := TAlphaColors.Blue;
PassLock1.PasscodeLength := 6; PassLock1.MaskCharacter := '*'; PassLock1.OnComplete := PasscodeEnteredHandler;
procedure TForm1.PassLock1Complete(Sender: TObject);
begin
if PassLock1.Value = '1234' then
begin
ShowMessage('Access granted');
UnlockApp;
end
else
begin
PassLock1.ShowError;
PassLock1.Clear;
end;
end;
PassLock1.AllowBiometric := True;
PassLock1.OnBiometricAuth := BiometricAuthHandler;
procedure TForm1.BiometricAuthHandler(Sender: TObject; Success: Boolean);
begin
if Success then
UnlockApp
else
ShowMessage('Authentication failed');
end;
Clear - Reset all entered digitsShowError - Display error animation/colorValidate(ExpectedCode) - Check if code matchesRequestBiometric - Trigger biometric authenticationOnComplete - All digits enteredOnChange - Digit added or removedOnError - Validation failedOnBiometricAuth - Biometric result (Success: Boolean)