Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   2 menus en 1 aplicación distinto formulario (https://www.clubdelphi.com/foros/showthread.php?t=27504)

Mathom 22-11-2005 19:23:46

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;

No me marca ningún error de compilación pero el menú del 2º formulario no me aparece....alguna idea??

Además si muestro el Form2 con Show, el formulario aparece y desaparece..

Bien, espero haberme explicado con claridad.

Graciaaaas..

luisgutierrezb 22-11-2005 20:45:26

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;

Caro 22-11-2005 20:50:13

Hola has la prueba con este codigo

Código Delphi [-]
   Application.CreateForm(TForm2, Form2);
   Try
      Form2.ShowModal;
   Finally
      Form2.Destroy;
   End;

Saludos

Mathom 22-11-2005 20:51:22

gracias a los dos, voy a probarlo....ya os digo;)

Mathom 23-11-2005 10:00:50

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;
Gracias a los dos.
Un saludo


La franja horaria es GMT +2. Ahora son las 22:28:21.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi