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