Ir al contenido


Foto

¿ Cómo ocultar un formulario ?


  • Por favor identifícate para responder
3 respuestas en este tema

#1 monchito_elroro

monchito_elroro

    Advanced Member

  • Miembros
  • PipPipPip
  • 259 mensajes

Escrito 06 abril 2011 - 10:49

buenas con todos, este es mi primer tema, por favor si pueden ayudarme, lo que pasa es que intento hacer que al iniciar un formulario (aplicación) este se oculte, lo cual lo hago con este codigo:



delphi
  1. procedure TForm1.FormShow(Sender: TObject);
  2. begin
  3. Application.mainform.visible:=false;



ahora tengo también un trayicon en la bandeja con el cual pienso volverlo a aparecer (el formulario), el problema es que he intentado con varios codigos y no me resulta o me sale en el Lazarus algo de "error exception raised", por favor soy un principiante en esto de programar y quisiera que me ayuden..... porfavor

gracias de antemano......
  • 0

#2 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.448 mensajes
  • LocationMéxico

Escrito 06 abril 2011 - 11:34

Hola monchito_elroro

Bienvenido a DelphiAccess, he modificado el título del hilo para que tengas ayuda más rápido, ya te irás acostumbrando a las reglas de éste y cualquier foro que se interese por mantener una base de información debidamente clasificada.

En Delphi para ocultar un formulario utilizando el TryIcon se hace de la siguiente manera:



delphi
  1. procedure TfrmBoletin.ApplicationEvents1Minimize(Sender: TObject);
  2. begin
  3.   // Se envía la forma al TryIcon
  4.   Hide;
  5.   TrayIcon1.Visible := true;
  6. end;



y para mostrarlo nuevamente de esta forma



delphi
  1. procedure TfrmBoletin.TrayIcon1DblClick(Sender: TObject);
  2. begin
  3.   // Se reestablece la forma a su estado normal.
  4.   WindowState := wsMaximized;
  5.   Show;
  6.   TrayIcon1.Visible := false;
  7. end;



No se si sea igual en lazarus, pero seguro que te ayudarán.

Salud OS
  • 0

#3 monchito_elroro

monchito_elroro

    Advanced Member

  • Miembros
  • PipPipPip
  • 259 mensajes

Escrito 17 abril 2011 - 12:56


Gracias por tu respuesta, y disculpas por demorar en responder
ya lo solucione, era poner en el evento "OnCreate" del form esto:




delphi
  1. procedure TForm1.FormCreate(Sender: TObject);
  2. begin
  3.   application.ShowMainForm:=false;
  4.  
  5. end;



-------------------

Luego para que se máximice desde un popupmenu era poner esto:




delphi
  1. procedure TForm1.MenuItem2Click(Sender: TObject);
  2. begin
  3.   Application.mainform.visible:=true;
  4. end;





gracias de todas maneras por todo....
  • 0

#4 Delphius

Delphius

    Advanced Member

  • Administrador
  • 6.295 mensajes
  • LocationArgentina

Escrito 17 abril 2011 - 12:03

Hola monchito_elroro,

He editado tus mensajes tus mensajes para darle formato al código. ¿Viste lo bien que se ve ahora?
Esto se consigue con etiquetas. Te explico como usarlas: fíjate que cuando escribes el mensaje hay una barra con botones, justo debajo del combo para dar color al texto hay un botón con el dibujo de un casco. Ese botón sirve para etiquetar código delphi/object pascal, los de la par para C++, c#, SQL y C respectivamente.
Basta con que selecciones tu código que pegas, y pulses el botón adecuado.

También puedes hacerlo manualmente, escribiendo las etiquetas [ DELPHI ] Y [ /DELPHI ] sin los espacios entre los corchetes.

Saludos,
  • 0




IP.Board spam blocked by CleanTalk.