[mantraxer21]

Holas,

Consulta, estoy depurando un aplicativo Delphi5 que al momento de una acción específica "boton aceptar", éste ejecuta unos bloques de codigo que envia un mail, luego de ello, recién le muestra un mensaje al usuario "Correo Enviado a : xxxxxx"

Se puede controlar que una vez aceptado, entonces muestre un Dialog o PopUp que diga "Sr. Usuario, favor espere mientras se gestiona el envio del email", y esta ventana desaparece una vez que el mensaje de "Correo Enviado a : xxxxxx".

Saludos

Código Delphi [-]
procedure TFRM_LOG_box_operation.SendMessage;
begin
  CreateHeaders;
  texto1.Text:='Cliente          :'+F_Log_parcel_information.vCustomer+#13+
               'Pedido           :'+edt_pbo_code.Text+#13+
               'Motivo Reingreso :'+cbx_opt_code.Text+#13+
               'Fecha Reingreso  :'+ADBDate_del.Text+#13+
               'Comentarios      :'+edt_bop_comment.Text;


  with NMSMTP1 do
  begin
    PostMessage.Body.Add(texto1.text);
    SendMail;
    ShowMessage('E-mail Enviado a: '+VPara);
  end;