Ver Mensaje Individual
  #12  
Antiguo 17-06-2004
Avatar de marto
marto marto is offline
Miembro
 
Registrado: may 2003
Ubicación: Barcelona, Catalunya
Posts: 882
Reputación: 22
marto Va por buen camino
mmmm opción a:
Código Delphi [-]
program Project2;

uses
  QForms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Form1 := TForm1.Create(Application);
  if (Form1.ShowModal = 1) then
  begin
    Form1.Free;
    Form2 := TForm2.Create(Application);
    Form2.ShowModal;
  end;
  Application.Run;
end.

probado y chuta
__________________
E pur si muove
Responder Con Cita