Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   messageBox sin botones (https://www.clubdelphi.com/foros/showthread.php?t=10862)

gqxns 31-05-2004 17:06:00

messageBox sin botones
 
hola amigos!

¿se puede crear un ventanita tipo messageBox que no contenga boton?. mas que un diálogo seria un monólogo :D !. Es para que mientras la aplicacion carga unos datos muestre un cartelito modal de espera. Desde ya muchas gracias!.

Nicolas.

roman 31-05-2004 17:12:46

Pues de poder crearla claro que puedes; haces un formulario sin botones y lo muestras usando ShowModal.

El problema que veo es que el código que sigue a la llamada a ShowModal no se ejecutará sino hasta que la ventana modal se cierre de manera que ¿cómo vas a cargar los datos?

Una posible solución sería mandar cargarlos desde la ventana modal.

// Saludos

gqxns 31-05-2004 17:35:23

El problema que me presentas Roman es un buen punto que no habia tenido en cuenta. Ahora, ¿si no fuera modal o bien con hilos?. ¿No hay una especie de showmessage que se pueda cerra desde donde se lo llamó?. Ya tengo varios form en la aplicacion y agragar otro por tan poca cosa no me parece optimo, pero puedo estar equivocado. cualquier sugerencias es bien recibida. Saludos y Gracias!!

Nicolas

tcp_ip_es 31-05-2004 17:54:41

otra manera es tratar el nuevo form como si fuera un splash y mientras se esta mostrando bloquear los controles desde el que lo llamas:

Código Delphi [-]
procedure TForm1.BotonProcesoCargaClick(Sender: TObject);
PanelFormulario.enabled:=false;
  FSplash := TFSplash.Create(application);
  FSplash.Show;
  FSplash.Update;

// Aqui iría el proceso de carga

  FSplash.Hide;
  FSplash.Free;
PanelFormulario.enabled:=true;

Espero que te sirva, Saludos Tony


La franja horaria es GMT +2. Ahora son las 02:03:11.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi