Ver Mensaje Individual
  #3  
Antiguo 11-06-2014
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Echa un vistazo al siguiente archivo "DPR" (Delphi Project) de cierto proyecto recién creado:

Código Delphi [-]
program Project2;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Ahora, tras añadir un "Data Module" al proyecto, su archivo "DPR" ha cambiado de esta forma:

Código Delphi [-]
program Project2;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {DataModule2: TDataModule};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TDataModule2, DataModule2);
  Application.Run;
end.

Como ves, ahora también va a crearse el "Data Module", pero, se hace después de crearse el formulario principal del proyecto. Pero nosotros podemos cambiar eso editando el archivo DPR así:

Código Delphi [-]
program Project2;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {DataModule2: TDataModule};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TDataModule2, DataModule2);
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Como ves ahora el "Data Module" se crea antes del propio formulario principal, y, de este modo, dicho "Data Module" estará disponible para su utilización desde nuestro formulario principal, por ejemplo.

Actualización: El compañero ecfisa se me adelantó mostrándote una manera de hacer lo mismo "visualmente". Ambas formas son correctas (hacerlo visualmente o editando el archivo de proyecto) y creo que "intercambiables".
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita