problems with messagedlg

[WagnerAlexandre]

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; 

[zilav]

MessageDlg is not blocking in UniGUI, change code to

if Trim(edtUsuario.Text)='' then begin

end
else if Trim(edtSenha.Text)='' then begin

end;

[WagnerAlexandre]

No message command is able to lock in unigui?

[Farshad Mohajeri]

No message command is able to lock in unigui?

 

No, running thread can not be suspended.