Hola Alecaa!! Como andas?? Primero gracias por ayudarme siempre, segundo lo hice andar. Agrego el código para que lo vean, tengo miedo de que me genere problemas,pero por ahora me anda bien.
Este el el Dpr el pp, lo que hace es mostrar un spash, despues me carga los dos Modulos, el de la base , y el de los Query.
Código Delphi
[-]begin
SplashForm := TSplashForm.Create(Application);
SplashForm.Show;
SplashForm.Update;
Application.Initialize;
Application.Title := 'SiTiC';
Application.CreateForm(TBaseDataModule, BaseDataModule);
Application.CreateForm(TQueryDataModule, QueryDataModule);
SplashForm.Hide;
SplashForm.Free;
Application.Run;
end.
Despues en el Form Create del Base Module tengo este codigo: si anda la conexión me crea el login y sino me manda a otro form para cambiar los datos del Zconex.
Lo que cambie para que ande es:
Esto
Código Delphi
[-]IngresoForm:=TIngresoForm.Create(Application);
Por esto
Código Delphi
[-]Application.CreateForm(TIngresoForm, IngresoForm)
Acá se puede apreciar:
Código Delphi
[-]procedure TBaseDataModule.DataModuleCreate(Sender: TObject);
begin
with BaseDataModule.ZConnection1 do
begin
If Connected then Disconnect;
HostName:='localhost';
Catalog:='base';
Database:='base';
Port:=3306;
User:='root';
Password:='123';
try
Connected:=True;
if Connected = true then
begin
Application.CreateForm(TIngresoForm, IngresoForm);
end;
except
Application.CreateForm(TConexionForm, ConexionForm);
end;
end;
end;
end.
La duda es: cual es la diferencia entre estas dos Sentencias??
Código Delphi
[-]IngresoForm:=TIngresoForm.Create(Application);
Código Delphi
[-]Application.CreateForm(TIngresoForm, IngresoForm)
Desde ya muchas Gracias!!!!!!