Mensaje de Espera mientras ejecuta algo

[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;

[[nlsgarcia]]

mantraxer21,

Empezado por mantraxer21

...¿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"?...

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

Revisa esta información:

Barra de Progreso Infinita en Windows con Delphi 7

Espero sea útil

Nelson.

[[ElDioni]]

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.

[Neftali [Germán.Estévez]]

Empezado por ElDioni

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...".

Solución sencilla y simple.