Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 09-07-2012
aoshishin1 aoshishin1 is offline
Registrado
NULL
 
Registrado: jul 2012
Posts: 9
Poder: 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
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Utilizar componentes de formulario en procedimiento leogobo OOP 2 27-05-2011 06:24:36
Procedimiento Almacenado UPDATE no se ejecuta Rockin Firebird e Interbase 25 25-05-2010 20:04:50
cuando llamo ejecutar un hilo dentro del proceso del hilo no lo hace robertosc Varios 1 14-08-2007 22:11:09
procedimiento en un hilo independiente jorodgar Varios 2 04-08-2005 10:18:11
Intraweb: LLamar desde javascript a un procedimiento de un formulario Brewster Internet 0 03-07-2004 12:52:17


La franja horaria es GMT +2. Ahora son las 18:35:04.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi