FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Forms como el msn
Hola amigos estoy tratando de crear ventanas que se abran en tiempo de ejecución, pero que sean una nueva ventana asi como otro programa, recuerdan el msn cuando inician conversación con alguien se levanta otra ventanita en la barra de tareas cosa que si cierro la principal no se cierren las otras ventanitas.
Yo probe esto pero no funcionó? Por otro lado, como hago para que además de crearme la ventana necesito unos campos Memos y como hago para tener el control de esos memos desde mi forma principal. La verdad esto me esta rompiendo la cabeza alguna ayuda por fa... |
#2
|
||||
|
||||
Cita:
El problema es que Delphi siempre se cerrará cuando se cierre el formulario principal. El formulario principal es el primero que se crea mediante Application.CreateForm(...); en el dpr. CreateForm asigna a la propiedad MainForm (de solo lectura) del objeto Application el formulario creado. Cuando un formulario se cierra pregunta si él es el principal if Application.MainForm = Self then Application.Terminate y Application.Terminate es quien se encarga de terminar la aplicación. Con más precisión, Application.Terminate ocasiona que la propiedad Terminated de Application sea true lo cual es la condición de salida del ciclo principal en Application.Run:
Dos opciones que se me ocurren ahora son: 1. Usas un formulario principal de palo que esté escondido y un segundo formulario que haga las veces del principal. 2. Alteras la forma en que Delphi maneja el ciclo principal. Por ejemplo, sustituyes todos los Application.CreateForm(TFormN, FormN) por FormN := TFormN.Create(Application); y sustituyes la línea Application.Run en el dpr por tu propio ciclo:
Claro que en este caso tienes que asegurarte de que en algún momento se cierre la aplicación (usando, por ejemplo, Application.Terminate) o podría sucederte que se cierren todos los formularios y la aplicación se quede colgada. Para ello podrías agregar en el evento OnClose de cada formulario algo como
Esto asegurará que si el formulario que se cierra es el último entonces se llamará a Application.Terminate. // Saludos |
#3
|
|||
|
|||
Usa los componentes TCoolTrayIcon
La ventaja es que tiene la opcion de cerrar y captura el mensaje de Application.Terminate //creo que es este y revisa si no hay un acondición dada, el cooldemo tiene la opcion habilitada por un checkbox, facilmente la pueda cambiar. por un codigo o la opcion de una propiedad del componente. DE esta manera tu forma principal no se cierra hasta que como con el messenger usas la opcion de cerrar. Yo lo he usado con un popupmenu, que se muestra por que pongo la forma principal en el systray. igual que el messenger puedo ocultar y mostrar la forma principal ahora el demo que hice , anda por ahi perdido. que implementa lo que dices. deja lo arreglo que tengo uso unos componentes no estandar de delphi7 y te daria muchos errores al abrir. pues creo tu no los tienes. mientras puedes familiarizarte con el cooltrayicon |
#4
|
||||
|
||||
Cita:
Creo que hay una solución bastante sencilla. Creas una nueva ventana, será la principal, pero en el OnCreate, hará los siguiente: Esta ventana, es la primera que pones en Projects, Options, en la zona de AutoCreate, y es la que mandas a cerrar desde un menu que diga Salir, (esta opción estará en la segunda ventana. Las demás ventanas las creas dinámicamente desde la segunda Ventana y las liberas al cerrarlas, como éstas ya no son la principal, simplemente tu programa se quedará por ahí funcionando. saludos.
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. Última edición por Lepe fecha: 18-10-2005 a las 09:06:21. |
#5
|
||||
|
||||
Despues de releer todo el hilo, creo que la solución es mucho más simple de lo comentado en todos los mensajes, incluido el anterior posteado por mi.
Cita:
Ahí tienes un error: estas poniendo Tform .... ¿pero qué Tform? TForm a secas es la clase base para todas las ventanas. Si entiendo bien, tienes que hacer esto: - Diseñas 3 ventanas form1, form2 y form3. (simplemente File --> new --> Form, 2 veces, para añadir los form2 y form3) - Vas a Project, Options, y quitas el form2 y form3 de la zona Autocreate, y los pones en Available. - en el Form1 pones 2 botones, y en sus eventos OnClick añades:
Tanto en form2 como en form3, en sus eventos Onclose añades: Donde X será el número 2 o bien 3. Listo, ya tienes funcionando los form2 y form3 totalmente independientes, y desde form1 puedes crearlos. Espero que sea lo que necesitas. saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#6
|
||||
|
||||
Cita:
Creo que lo más adecuado es lo que plantea JXJ: 1. En el evento OnCloseQuery del formulario principal pones Accept := false para que no se cierre y Hide para que se oculte y de la impresión de estar cerrado. 2. Colocas un icono en la bandeja del sistema que de la opción de terminar la aplicación con Application.Terminate. // Saludos |
#7
|
||||
|
||||
Simplemente espero una respuesta por parte de Clantt, a ver quién lleva la razón , atento a mis explicaciones maestro :
Cita:
Cita:
Cita:
Lo dicho, Clantt nos dirá exactamente qué quiere hacer.
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#8
|
||||
|
||||
Cita:
// Saludos |
#9
|
||||
|
||||
Estamos hablando por hablar , pero bueno, te contesto
Cita:
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#10
|
||||
|
||||
Cita:
Cita:
// Saludos |
#11
|
||||
|
||||
Por supuesto, y además te denuncio por plagio y por infringir las patentes
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#12
|
|||
|
|||
Hola muchachos, para comenzar muchas gracias por interesarse en el tema, tube un percanse de un viaje por lo que no me pude conectar al foro para responder, espero no les haya causado molestia alguna.
Bueno el problema es el siguiente pasa que estoy haciendo un chat y en mi forma principal tengo una lista de usuarios, a la derecha un Memo y bueno para mandar algún mensaje primero seleccionas al usuario y luego escribes en el memo. Entonces yo quiero hacer que al seleccionar al usuario se cree otra ventana donde aparezca un memo para tener una charla privada y si selecciono otro usuario lo mismo. El problema sucede que creo la forma en tiempo de ejecusión pero no se como controlar al memo que esta dentro de la forma creada. yo hago esto: Tengo una forma con un memo dentro que se crea por primera vez cuando hago el doble clic en el usuario luego le cambio el nombre. . Lo lógico sería que para tomar el control del memo solo haga esto no?
pero no funciona y si creo muchas formas mas con otros nombres tampoco sirve porque no puedo accesar al memo de cualquier nueva forma desde mi forma principal. Por otro lado: Tampoco pude hacer es que al hacer doble clic en el usuario la nueva ventana que se cree aparezca como una nueva ventana en la barra de tareas como en el msn esas dos cosas me estan llevando mucho tiempo al parecer y sin resolver ninguna de ellas. Les agradesco alguna ayuada o algún manual para leerme que necesite. Adios.. y gracias de nuevo por contestar |
#13
|
||||
|
||||
Para lo primero simplemente pon
Cambiar el nombre de un formulario durante la ejecución, normalmente no tiene sentido. El problema aquí surgirá cuando quieras mantener más de una conversación privada a la vez. No puedes usar la misma variable Form2 para todas ellas. Debes usar una variable distinta por cada ventana que uses. Para lo segundo, debes redefinir el método CreateParams del formulario del privado como sigue:
// Saludos |
#14
|
|||
|
|||
Cita:
Cita:
Al parecer mi lógica del chat esta errónea no crees? mi cliente debería ser cada ventanita no la ventana principal? ¿Creo que estoy frito, por que la verdad no tengo idea de como hacerlo? espero alguna sugerencia saludos.. |
#15
|
||||
|
||||
...Pues no tiene nada que ver con el msn, roman, apúntate 2, una por responderle y otra hacerme callar la boca.... de momento
saludos gente.
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#16
|
|||
|
|||
No entiendo nada, si puse mal el nombre del hilo, mil disculpas pero de todas formas alguna ayuda o sugerencia?
|
#17
|
||||
|
||||
Cita:
Vamos a ver; obviamente no puedes declarar tantas variables como ventanas posibles ya que no puedes saber cuántas de ellas habrá en un momento dado. Entonces lo que necesitas es una lista de objetos a la que puedas agregar o quitar elementos dinámicamente. Dices que en tu ventana principal tienes una lista de usuarios. Si esta lista es un ListBox entonces ya tienes la mitad del camino recorrido. La propiedad Items del ListBox es un objeto de tipo TStrings y como tal, tiene una propiedad Objects:
que viene a ser un arreglo o lista de objetos, uno por cada elemento de Items, o sea de lbUsuarios (el ListBox de usuarios). Como un formulario es un objeto, bien puedes utilizar esto para guardar referencias a las ventanas de privados. Si no tienes privado con un usuario, el objeto correspondiente será nil. Para fijar ideas, vamos a describir lo que pasaría cuando haces doble click sobre un usuario de la lista:
Así, en un momento dado, tendrías la siguiente situación, esquemáticamente hablando: Código:
[pablo] --------> +--------------------+ [susana] -> nil | | [teresa] -> nil | | [lepe] -> nil +--------------------+ [juanito] -> nil [mamá] ---------> +--------------------+ | | | | +--------------------+ Los otros elementos son nil pues no has iniciado conversaciones con ellos. Si tienes que interactuar con la ventana de pablo, por ejemplo, primero que nada obtienes el índice que ocupa en la lista. Éste puede ser ItemIndex como antes, si es el que esá seleccionado o bien el obtenido de lbUsuarios.Items.IndexOf('pablo') Una vez hecho esto, obtienes la referencia al privado:
Y ya pudes interactuar usando la variable local Ventana. Hay muchos otros detalles que tendrás que tomar en cuenta. Por ejemplo, ¿qué pasa cuando cierres una ventana de privado? Lo más sensato es que liberes su memoria poniendo Action := caFree en su evento OnClose. Pero de alguna manera tienes que avisarle a la ventana principal para que se entere de que ya no hay privado y vuelva a poner en nil la referencia correspondiente. Pero por el momento ya tienes con qué comenzar. Paralelamente te recomiendo que leas algún libro básico de Delphi. En la página de Ian Marteens podrás bajar gratuitamente La Cara Oculta de Delphi 4, que aunque no coincida conla versión que uses de Delphi, te servirá perfectamente para las nociones generales. // Saludos |
#18
|
||||
|
||||
Clantt no te disculpes era una serie de comentarios que teniamos roman y yo, no tiene nada que ver contigo
No sé si aparte de tener a los usuarios en un Listbox, mantienes la lista de usuario de otra forma. La idea es que asocies con un nick Una lista de ventanas privadas abiertas, y esas ventanas las añades a un TObjectList. Ya no necesitas 20 formas.
saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#19
|
||||
|
||||
Cita:
Bromas aparte, también pensé en esa posibilidad roman, pero en ese caso, un usuario solo puede tener un chat privado con otro usuario. Uniendo las dos ideas: El objeto que se asocie con un usuario sería un TobjectList, que se creará cuando se abra el primer chat privado, y dentro de esa lista de objetos, estan enumeradas todos los chats privados. Edito: Mi idea es que se cree el TobjectList sobre el usuario del chat, es decir, yo entro en el chat, pues mi Objets[itemindex] es donde se crea la lista de ventanas. De esta forma tienes un acceso rápido a todas los privados. Con la forma de roman tienes que recorrer todos los elementos del listbox para saber si tiene privados abiertos o no. Con lo que yo propongo, accedes a un solo objeto y despues deduces qué usuario es. Acabo de caer en un detalle. Yo abro un privado con pablo. Pablo se va del chat, pero deja abierto el privado. Ahora yo no puedo acceder al privado con pablo, porque su objeto se abrá liberado. saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. Última edición por Lepe fecha: 20-10-2005 a las 18:12:49. |
#20
|
||||
|
||||
Cita:
Esa lista, la de pablo, susana, teresa, etc., es la que tú verías en tu ventana, y sólo necesitas (a lo sumo) una ventana de privado por cada persona en esa lista. En mi ejemplo, el usuario mantiene dos conversaciones privadas, con pablo y mamá. No compliquemos las cosas. Y en mi opinión, en este caso es más adecuado un TStrings, como lbUsuarios.Items, que un TObjectList, precisamente porque el TStrings mantiene además el nombre del usuario correspondiente. EDITO: Para que quede más claro: si teresa tiene conversaciones privadas con otras personas, eso no importa, ya que ella tendrá su propia ventana de usuarios en su aplicación. // Saludos Última edición por roman fecha: 20-10-2005 a las 18:13:10. |
|
|
|