Hello friends, someone could help me?
In the code below only the last message is displayed to the user in a Form login can guide me if i am doing something wrong? I thank you.
if Trim(edtUsuario.Text)='' then
begin
MessageDlg('Digite o Usuário Corretamente!' ,mtWarning, [mbOK],
procedure(Sender: TComponent; Res: Integer)
begin
edtUsuario.SetFocus;
exit;
end
);
end;
if Trim(edtSenha.Text)='' then
begin
MessageDlg('Digite a Senha Corretamente!' ,mtWarning, [mbOK],
procedure(Sender: TComponent; Res: Integer)
begin
edtSenha.SetFocus;
exit;
end
);
end;