FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
2 menus en 1 aplicación distinto formulario
Hola a todos, se me ha planteado una pequeña duda y no le encuentro la explicación....a ver si alguien sabe guiarme un poco. Resulta que tengo dos formularios uno principal (Form1) y otro que viene a ser un bloc de notas (Form2) al cual se accede mediante un menú sito en el primero.
En el segundo formulario pongo otro menu en el cual está archivo (nuevo, abrir y cerrar), edición (cortar, copiar y pegar) y ayuda. El Form2 lo muestro a partir de un show. pero el form lo creo en tiempo de ejecución mediante el código... Código:
procedure TForm1.Notas1Click(Sender: TObject); Var Form2 : TForm2; begin Form2 := TForm2.Create (Self); Try Form2.BorderStyle := BsDialog; Form2.ShowModal; Finally Form2.Destroy; End; end; Además si muestro el Form2 con Show, el formulario aparece y desaparece.. Bien, espero haberme explicado con claridad. Graciaaaas.. |
#2
|
|||
|
|||
si mal no recuerdo no te lo muestra por el borderstyle, ponle single...
la otra al darle show sigue con la siguiente instruccion y luego el destroy, para evitar eso quitale el destroy y en el evento onclose de la forma ponle: Action := caFree; |
#3
|
||||
|
||||
Hola has la prueba con este codigo
Saludos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar. |
#4
|
|||
|
|||
gracias a los dos, voy a probarlo....ya os digo
|
#5
|
|||
|
|||
Solucionado
De maravilla.... tenía razón Luis Gutierrez...el menú ha salido al poner el formulario en Single y para destruir el formulario en el evento OnClose...
Código:
Action:= Cafree; Un saludo Última edición por Mathom fecha: 23-11-2005 a las 10:01:30. Razón: Me he dejado un detalle |
|
|
|