Ver Mensaje Individual
  #1  
Antiguo 01-01-2015
joseprad joseprad is offline
Miembro
 
Registrado: oct 2006
Posts: 36
Reputación: 0
joseprad Va por buen camino
Salir de TThread

Hola amigos.
Necesito retomar el control de un programa después de terminar un hilo.
Pongo un esquema del programa
Código Delphi [-]
type
THilo=class(TTHread)
   procedure Execute; override;
   procedure Terminar;


TFormImportar=Class(TForm)
   procedure btoInicarClic(Sender:TObject)
   procedure Final;
   procedure LimpiarPantalla;
end;

var
  frmImportar:TFrmImportar;
  Hilo:THilo;

Implementation

procedure TFrmImportar.btoIniciar(selder:TObject;
begin
   Hilo:=THilo.Create(False);
end;

procedure TfrmImportar.Terminar;
begin
  Application.MessageBox('Finalizado el proceso',
    'Actualitzar', MB_OK + MB_ICONINFORMATION);
  LimpiarPantalla;
end:

procedure TFrmImporter.LimpiarPantalla;
begin
  edit1.text:='';
  edit2.text:='';
  //....
end;

{THilo}

procedure THilo.Execute;
begin
  inherited;
  FreeOnTerminate;
  IniciarProceso;
  Terminar;
end;

procedure THilo.Terminar;
begin
  Terminate;
  frmImportar.Terminar;
end;

procedure THilo.IniciarProceso;
begin
  //....
end;

end;

Al terminar ejecuta el MessageBox, pasa por el procedimiento LimpiarPantalla, pero no me limpia los edits.

Pueden indicarme que es lo que esta mal?.
Muchas gracias
Responder Con Cita