Ver Mensaje Individual
  #2  
Antiguo 05-02-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 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