Hello,
I want to use SweetAlert dialog with LoginForm in order to inform user about credenetial check.
But after confirm SweetAlert Message (click on okay button) the login form is always closed.
My code:
procedure TfrmLogin.btnAnmeldenClick(Sender: TObject); var s: string; const msg = '%s darf nicht leer sein.'; begin s:= ''; if (length(edEmail.Text) = 0) then s:= 'EMail'; if (length(edKennwort.Text) = 0) then begin if s.Length > 0 then s:= s + ' / '; s:= s + 'Kennwort'; end; if s.Length > 0 then // Error !!! begin ModalResult:= mrNone; // !!! dlgAlert.Error('Eingabe unvollständig.', Format(msg, ), procedure(const ButtonClicked: TAButton) begin //frmLogin.ModalResult:= mrok; // ??? end ); end; end;
Do you have an example how to use SweetAlert in conjunction with Login dialog?
Thanks in advance!
****
=> Solution was send by chat support of UNISF,
Thanks a lot!