Mensaje de Espera mientras ejecuta algo
 

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;

mantraxer21,

:rolleyes:

Pregunto : ¿Has considerado la opción de una barra de progreso infinita mientras se enviá un email?.

Revisa esta información:
Espero sea útil :)

Nelson.

No se si te entiendo,

si es como estoy pensando yo pondría un panel con el texto de "espere mientras..." antes del sendmail y luego lo ocultas antes de mostrar el mensaje de "correo enviado a...".

Saludos.

Solución sencilla y simple.