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;
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