Forms como el msn

[Clantt]

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ó?

Código Delphi [-]
... var 
 prueba : Tform;
 begin
    prueba := Tform.create(application);
    prueba.show;
 end;

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

[roman]

Empezado por Clantt

que si cierro la principal no se cierren las otras ventanitas.

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:

Código Delphi [-]
repeat
  try
    HandleMessage;
  except
    HandleException(Self);
  end;
until Terminated

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:

Código Delphi [-]
repeat
  try
    Application.HandleMessage;
  except
    Application.HandleException(Application);
  end;
until Application.Terminated;

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

Código Delphi [-]
Action := caFree;

if Screen.FormCount = 1 then
  Application.Terminate;

Esto asegurará que si el formulario que se cierra es el último entonces se llamará a Application.Terminate.

// Saludos

[JXJ]

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

[[Lepe]]

Empezado por Clantt

cosa que si cierro la principal no se cierren las otras ventanitas.

¿Quién ha dicho que esa ventana es la principal?, A ti te parece que es la principal .

Creo que hay una solución bastante sencilla.

Creas una nueva ventana, será la principal, pero en el OnCreate, hará los siguiente:

Código Delphi [-]
application.ShowMainForm:= false;
-Crear y mostrar una segunda ventana que actuará de Principal 
(de cara al usuario)

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.

[[Lepe]]

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.

Empezado por Clantt

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,

Lo que quieres decir, es que cada ventana actue de forma independiente, es decir, si cierras una que no interfiera con las demás, y esto es intrinsecamente así, uuu sea sé, delphi funciona así.

Código Delphi [-]
... var 
 prueba : Tform;
 begin
    prueba := Tform.create(application);
    prueba.show;
 end;

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:

Código Delphi [-]
procedure Tform1.Form1Button1Click(Sender:TObject);
begin
if not Assigned(form2) then
  application.Createform(Tform2, Form2)
else
  Form2.Bringtofront;
end;

procedure Tform1.Form1Button2Click(Sender:TObject);
begin
if not Assigned(form3) then
  application.Createform(Tform3, Form3)
else
  Form3.Bringtofront;

end;

Tanto en form2 como en form3, en sus eventos Onclose añades:

Código Delphi [-]
Action := cafree;
formX := nil;

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

[roman]

Empezado por Lepe

Listo, ya tienes funcionando los form2 y form3 totalmente independientes, y desde form1 puedes crearlos.

No entiendo a dónde quieres llegar con esto. En esta situación Form1 es el formulario principal y al cerrarlo se cerrará la aplicación así que estamos en las mismas.

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

[[Lepe]]

Simplemente espero una respuesta por parte de Clantt, a ver quién lleva la razón , atento a mis explicaciones maestro :

Empezado por Clantt

Hola amigos estoy tratando de crear ventanas que se abran en tiempo de ejecución,

¿A partir de Tform?, no creo, puede que sea un error de transcripción... pero no puedo adivinarlo .

Empezado por Clantt

pero que sean una nueva ventana asi como otro programa,

ummmm, Roman, el CreateProcess está de moda . Aquí me he pasado de listillo, pero bien es verdad que ateniendonos a la guia de estilo, puede interpretarse así.

Empezado por Clantt

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.

Clant dice la palabra "Cerrar la ventana principal", pero ¿de que forma la cierras?, porque si se refiere a pulsar la X de la ventana de contactos, todos sabemos que en realidad no se está cerrando, se ha programado para que se vaya al TrayIcon. Pero si usamos la opción Archivo -->Cerrar de la ventana de contactos, si se cierra todo, por ello, ¿a qué método de cerrar se está refiriendo? .

Lo dicho, Clantt nos dirá exactamente qué quiere hacer.

[roman]

Empezado por Lepe

porque si se refiere a pulsar la X de la ventana de contactos, todos sabemos que en realidad no se está cerrando, se ha programado para que se vaya al TrayIcon. Pero si usamos la opción Archivo -->Cerrar de la ventana de contactos, si se cierra todo, por ello, ¿a qué método de cerrar se está refiriendo? .

Pero aquí tú ya estás hablando específicamente del MSN. En una fría lógica, Clantt sólo se refiere al comportamiento de las ventanas. Ni tú, ni yo ni JXJ, sabemos, en este momento, si su intención siquiera abarca el introducir un icono en la bandeja del sistema. Bajo esta lógica fue mi primea respuesta.

// Saludos

[[Lepe]]

Estamos hablando por hablar , pero bueno, te contesto

Empezado por roman

Pero aquí tú ya estás hablando específicamente del MSN.

El titulo del hilo es:"forms como el msn". Creo que puedo hablar especificamente del MSN