Ejecutar form en un hilo

[turbopascual5.0]

Empezado por AgustinOrtu

Yo mejor mandaría todo ese código del evento OnShow al hilo; entonces, creas el form con el gif, creas el hilo y que ejecute su trabajo. Cuando termina, creas el form principal y cierras el del gif

El trabajo pesado no debe hacerse en los form, que son elementos para representar estados y datos, nada más.

El trabajo pesado se debe hacer lo más lejos posible del form, de esta manera te es más fácil refactorizar el código y no queda fuertemente acoplado. Con el tiempo da sus frutos

Gracias por tu respuesta.

La verdad es que tambien me habia planteado esa opción.

Pero aquí ya me doy de bruces con mi ignorancia.

Supongo que el código lo he de poner en :

Código Delphi [-]
procedure thilo.Execute;
begin
  inherited;
 //aquí el código pesado
end;

El caso es que al colocarlo:

Por ejemplo pego un trozo del manejo de bases de datos

Código Delphi [-]
procedure thilo.Execute;
begin
  inherited;
cube2.active:=true;
 Hoy := Now;
  // Ahora extraemos los valores de "Hoy"
  DecodeDate(Hoy, Año, Mes, Dia);
 // Y a partir de ahora podemos manejar esos valores como queramos

// posicionamos el combobox en el año actual

miaño:=inttostr(año);
 for x:=0  to combobox2.items.Count do
   begin
   if combobox2.items[x]=miaño then
        totem:=x;
   end;

combobox2.ItemIndex:=totem;
adoquery1.Active:=true;
adoquery2.Active:=true;
adoquery9.Active:=true;
adoquery11.Active:=true;
end;

Todos los componentes adoquery, el combobox y el cube me indica un error de undeclared Identifier. No los logra "ver", y no sé donde indicarlo. He leído que si manejo componentes externos al hilo les he de poner syncronize, aquí lo he obviado (tampoco poniendolo los ve).

Independientemente, la verdad, siendo que el hilo está forzado en prioridad al máximo....... el balanceo de carga deja mucho que desear (win xp, delphi 2009).

[[AgustinOrtu]]

La parte de la fecha no deberia ser algo pesado, eso podria gestionarlo el form

El problema lo tenes en los query. Por que poner componentes query en un form? Lo de "identifier not declared" es porque justamente el hilo no conoce ninguna variable con ese nombre, estan en el form, que es otro objeto del cual el thread no sabe ni deberia saber

[deliriun]

Tal vez si usas este método te ayude..

Código Delphi [-]
var
  Retorno: Cardinal;

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

begin
      CreateThread(nil,0,Pointer(@Ejecutar),nil,0,Retorno);
 end;

Yo tenía un problema en la inyección de un Cheat a un juego, que se quedaba trabado el juego, y esto me ayudo a ver úsalo y nos dices