Ver Mensaje Individual
  #2  
Antiguo 16-09-2007
Avatar de paldave
paldave paldave is offline
Miembro
 
Registrado: ago 2007
Ubicación: Uruguay
Posts: 148
Reputación: 17
paldave Va por buen camino
Una de las soluciones es esta:
1) Pones en el FLogin la propiedad FormStyle=fsNormal.
2) Pones el FLogin como MainForm.
3) Editas el código del proyecto:
Código Delphi [-]
program Project1;

uses
  Forms,controls,
  FPrincipal in 'FPrincipal.pas' {FPrincipal},
  FLogin in 'FLogin.pas' {FLogin};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TFLogin, FLogin);
  FLogin.ShowModal;
  if FLogin.ModalResult <> mrCancel then
  begin
    FLogin.Free;
    Application.CreateForm(TFPrincipal, FPrincipal);
    Application.Run;
  end;
end.
entonces dependiendo de como cierres el formulario FLogin (mrCancel o mrOk) abrirás o no el principal.
No olvides agregar en uses la unidad controls.

Espero te sirva. Saludos.

Última edición por paldave fecha: 16-09-2007 a las 01:01:58.
Responder Con Cita