Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 05-02-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola raciellc.

Supongamos que tenés los tres forms en Autocreate-forms en este orden:
Cita:
Form1
Form2
Form3 (el que deseas que se muestre primero)
Form1 es el Form principal y para que primero se muestre Form3 tenés que alterar el órden de creación en el proyecto.

Para hacer esto:
1)Quitar Form3 de Auto-create forms: Project -> Options -> Forms (pasarlo a Available forms)
2)Abrir proyecto: View -> Units -> Project1 (o el nombre de tu proyecto)

Deberías ver un código parecido a este:
Código Delphi [-]
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.Run;
end.

Luego deberás alterar el órden de creación de este modo:
Código Delphi [-]
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3};

{$R *.res}

begin
  //Crear y mostrar Form3     
  with TForm3.Create(Application)do
  begin
    Visible:= False;
    ShowModal;
  end;
  // continuar
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Form3.Free; // destruir y liberar memoria (una mejor opción: Action:= caFree en el evento OnClose de Form3)
  Application.Run;
end.

Si querés mostrar Form3 nuevamente, tendrás que volver a utilizar el codigo:
Código Delphi [-]
uses Unit3;
...
  with TForm3.Create(Application)do
  begin
    Visible:= False;
    ShowModal;
  end;
...

Un saludo.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 05-02-2011 a las 09:28:14.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Traer al Frente Ventanas sin Cambiar el Orden FENIXadr Varios 0 01-06-2010 05:29:47
Orden de aparicion de los forms! LizdR Varios 2 12-04-2010 15:40:27
Cambiar orden de páginas con Rave Reports M. FM. Impresión 4 07-02-2008 18:59:01
Cambiar orden de mensajes con net send carlos gonzalez Varios 1 22-02-2007 22:20:03
cambiar orden columnas dbgrid dvlt OOP 3 07-06-2006 14:31:47


La franja horaria es GMT +2. Ahora son las 05:07:54.


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
Copyright 1996-2007 Club Delphi