Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Como uso el ShowModal (https://www.clubdelphi.com/foros/showthread.php?t=72542)

annieruci 24-02-2011 20:26:29

Como uso el ShowModal
 
Tengo una aplicacion que se conecta a una base de datos pero quiero hacer otro form para que me pida el user y el pass para la conexion a la base de datos, el problema radica que quiero que se me levante la aplicacion y que arriba de esta salga la otra ventana para poner el user y el pass y despues que se conecte se cierre y ya. Hasta el momento no me sale.

Saludos

Casimiro Notevi 24-02-2011 20:44:29

¿Y por qué no te sale?, ¿qué estás haciendo?, ¿qué errores te salen?, te recuerdo leer nuestra guía de estilo, gracias por tu colaboración.

annieruci 24-02-2011 21:00:45

Todavia
 
Si le pongo ShowModal al form 2 entonces me sale primero el 2 y cuando lo cierro es que me sale el primero, por lo tanto cuando intenta acceder a los metos del form1 da error porque todavia no se ha mostrado la ventana, si le pongo al form2 show sin el modal me salen las dos ventanas pero puedo trabajar en cualquiera de las dos y no es la idea.

El metodo que crea el form2 esta en el evento onshow del form1, pero ya lo he provado con otros como oncreate y nada, no hace lo que yo quiero que es que se me muestren las dos pero con prioridad la form2 y despues que la cierre que siga trabajando en la form1.

Saludos

roman 24-02-2011 21:15:01

Creo que aquí está la respuesta a lo que quieres hacer.

// Saludos

AzidRain 24-02-2011 21:24:05

Añadiendo al comenteario de roman y casimiro, te recomiendo ampliamente el componente UserControl, que puedes descargar aquí. Hace todo lo que necesitas y se puede conectar con cualquier base de datos. Te permite gestionar usuarios y privilegios. Muy completo, te puedes ahorrar bastante trabajo. Lo malo es que no trae mucha documentación.

annieruci 24-02-2011 21:57:45

Perfecto
 
Perfecto solo cambie dos cosas para que se adaptara mejor al asunto
procedure CMAfterShow(var Msg: TMessage);
por
procedure CMAfterShow(var Message: TMessage);

y

try
if ShowModal = mrcancel then
Self.Close;

por

try
if ShowModal = mrok then
Self.Close;

Gracias roman una vez mas

Saludos


La franja horaria es GMT +2. Ahora son las 03:55:06.

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