Jump to content

problems with messagedlg


WagnerAlexandre

Recommended Posts

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; 

Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...