Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Formas Principales y secundarias (https://www.clubdelphi.com/foros/showthread.php?t=15721)

bustio 03-11-2004 02:47:55

Formas Principales y secundarias
 
Hola comunidad:

Ante todo, quiero pedir disculpas por mi ignorancia, y por decir cosas de las que no estoy completamenet seguro. Resulta que segun tengo entendido, el Delphi la primera forma que tiene en Project Options (ctrl+shift+F11) la toma como principal, y las demas son secundarias. ¿A que llamo Forma Principal y Forma Secundaria? Forma Principal es la forma que va a controlar la ejecucion de mi aplicacion, la que es la primera que el Delphi ejecuta y que cuando le doy al boton Cerrar(X) se cierra la aplicacion. Las Secundarias son las que se ejecutan solo cuando son llamadas por esta forma Principal o por otras secundarias, y que al cerrarlas no afectan el estado de la aplicacion.
Mi problema es que quiero hacer una aplicacion para conectarse a un servidor y hacer determinadas acciones alli. Pero para ello necesito crear una forma donde el usuario pueda entrar su loggin y demas; pero esta forma (que la llamare FrmLoggin para que se entienda mejor de cual hablo) necesito que sea la primera en ejecutarse y una vez entrado los datos por los que ella espera necesito que se cierre y a continuacion, se ejecute otra forma, que la llamare FrmEntradaDatos y que es la que quiero que controle el flujo de la ejecucion y la navegacion dentro de la aplicacion... en fin, quiero que sea una Forma Principal.. Este es mi problema pero no tengo idea de como lograr este efecto.

Agradezco cualquier sugerencia.

GRACIAS!!

roman 03-11-2004 04:35:52

De esto ya se ha hablado varias veces en los foros. Básicamente lo que tienes que hacer es crear la forma del Login manualmente en el archivo dpr:

Código Delphi [-]
var
  LoginOk: Boolean;
 
begin
  Application.Initialize;
 
  LoginForm := TLoginForm.Create(nil);
  LoginOk := (LoginForm.ShowModal = mrOk);
  LoginForm.Free;
 
  if LoginOk then
  begin
    Application.CreateForm(TMainForm, MainForm);
    Application.Run;
  end;
end.

// Saludos


La franja horaria es GMT +2. Ahora son las 07:38:47.

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