Ver Mensaje Individual
  #1  
Antiguo 09-07-2012
aoshishin1 aoshishin1 is offline
Registrado
NULL
 
Registrado: jul 2012
Posts: 9
Reputación: 0
aoshishin1 Va por buen camino
Problema: Hilo No ejecuta Procedimiento de su formulario.

Buenos dias, es la primera ves que posteo aqui ya que hace poco eh empezado a usar delphi y la verdad esta comunicadad me ha salvado mucho al vida.

Bueno, resulta que me he topado con el siguiente problema.

Tengo un proyecto en delphi el cual tengo un formulario de tipo MDIForm, el cual abro una ventana llamada FrmAuxialiar de tipo medichild (hija del otro formulario).

Dentro de esta ventana hija tengo creado un hilo, lo que quiero hacer es ejecutar dentro de este hilo un procedimiento declarado dentro de mi FrmAuxiliar, el problema es que cuando hago el excute, no me toma ese procedimiento, no lo reconoce, es como si el hilo no supiera donde se encuentra declarado o parado por asi decirlo.

Me gustaria saber uan forma de poder llamar a estos procedimientos dentro de mi hilo, para asi poder hacer esta multitarea,les muestro el codigo.

Código Delphi [-]
unit UTFrmAuxialiar;

interface

uses


  type
  THilo = class(TThread)
    Lista: TListBox;
    procedure Execute; override;
    procedure MostrarContador;
    procedure Terminar;
  end;

  private
    Hilo : Thilo;



//------------------------------------------------------------------------------
procedure THilo.Execute;
var
  i : integer;
begin
  inherited;
  FreeOnTerminate := True;
  while not terminated do
  begin
   FrmAuxialiar.MostrarCargando;
  end;
end;

procedure THilo.MostrarContador;
begin
  FrmAuxialiar.MostrarCargando;
end;

procedure THilo.Terminar;
begin
  FrmAuxialiar.OcultarCargando;
  Terminate;
end;
//---------------------------------------------------------
procedure TFrmAuxialiar.MostrarCargando;
begin
   Panel20.Visible:=true;
   AdvCircularProgress1.Enabled := true;
end;

procedure TFrmAuxialiar.Nuevo1Click(Sender: TObject);
begin
 hilo:=Thilo.Create(False);
 hilo.Resume;
end;
Como veran, cuando hagvo el execute, me deberia de mostrar un panel y un circularbar, pero no lo hace.
Desde ya muchas gracias y espero que me brinde una pequeña ayuda.
Saludos!!

Última edición por Casimiro Notevi fecha: 09-07-2012 a las 19:17:43. Razón: Cambiar [cita] por [delphi]
Responder Con Cita