Mantener Aplicacion Arancada

[ramonibk]

Hola a todos.

Lo que me gustaría es que mi aplicación arranque cuando arranco el ordenador lo cual es fácil añadiéndola en el ........\rum

pero me gustaría que cuando la cierran en realidad no se cerrase sino que para a la parte de iconos donde esta el reloj como ocurre con el MSN y demás programas.



alguien sabe como hacer esto????



Gracias de antemano.

[roman]

Primero que nada necesitas de una componente que te permita manejar iconos en el área de notificación (la del reloj). Para ello puedes usar TRxTrayIcon de las librerías RX. A la componente le asignas el icono que quieras y un PopupMenu que tendrá los ítemes que desees mostrar al dar click derecho en el icono.

En el evento OnCloseQuery del formulario principal pones

Código Delphi [-]
CanClose := DoClose;

if CanClose then
begin
  Hide;
  RxTrayIcon.Active := true;
end;

donde DoClose será una variable booleana (normalmente en false). Con esto impides que se cierre el formulario y en su lugar se oculte y haces visible el icono.

Las opciones que quieras poner en el menú serán a tu gusto pero muy posiblemente requieras como mínimo dos:

Mostrar - para volver a mostrar el formulario
Salir - para terminar (aquí sí) la aplicación

En la segunda opción pones DoClose en true para que el evento OnCloseQuery te permita cerrar el formulario.

Finalmente, en el evento OnShow del formulario desactivas el icono:

Código Delphi [-]
RxTrayIcon.Active := false;

a menos que desees que esté visible aún con el formulario a la vista.

// Saludos

[ramonibk]

Bueno puede ser una pregunta un poco estupida.
pero he estado trabajando con lo que me has dicho y no he visto donde poner el elemento DoClose a false. para que la aplicacion no se cierre.
me podias dar alguna pista mas. gracias

[roman]

DoClose es una variable booleana que tienes que declarar tú (por ejemplo en la sección private del formulario) y que inicializas a false (no es estrictamente necesario ya que por defecto su valor será false).

Cuando se ejecuta el evento OnCloseQuery, si DoClose es false...

... ¡oops! hay un error. El evento debe ser:

Código Delphi [-]
CanClose := DoClose;
 
if not CanClose then
begin
  Hide;
  RxTrayIcon.Active := true;
end;

Ahora sí. Cuando se ejecuta este evento, si DoClose es false, entonces CanClose será false también por lo que el formulario no se cerrará y en su lugar se ocultará y se activará el icono.

Si no usaras esta variable auxiliar y pusieras siempre CanClose := false, nunca podrías cerrar el formulario. El item "Salir" del PopupMenu está entonces para que ajustes DoClose a true en su evento OnClick:

Código Delphi [-]
DoClose := true;
Close;

Así, cuando la llamada a Close genere el evento OnCloseQuery, DoClose será ahora true y por tanto también CanClose permitiendo que se cierre el formulario.

// Saludos

[ramonibk]

Ante todo perdonar por mis pocas nociones de programacion.

pues hace poco que estoy programando y tengo poca o nunguna base. y todo lo que se a sido a base de cojer libros y manuales.

yo he generado donde declaro los Form que uso la variable DoClose.

pero lo que no tengo muy claro se como decirle que esta bariable es False. y si la dejo sin definir me genera un error.

[ramonibk]

Bueno Pido perdon
ya he descubierto que cuando se declaran variables endentro del private no hay que poner la palabra Val que era lo que yo hacia.
solo una cosa. aunque no me hace fala poner la variable a Flase. y para evirar errores o fallos la quisiera poner como se aria???