Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #3  
Antiguo 05-02-2015
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.210
Poder: 22
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Como te indica Neftali, es posible pero siempre que vayas a trabajar con un elemento de la VCL desde un hilo, sebes usar si o si, Synchronize.

Te pongo un ejemplo simple de un hilo que modifica un Label en un Form modal:

Código:
#define Unit2H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include "Unit3.h"
//---------------------------------------------------------------------------
class ThPrueba : public TThread
{
private:
  TForm3 *Form;
  String LS;
protected:
        void __fastcall Execute();
public:
        __fastcall ThPrueba(TForm3 *form, bool CreateSuspended);
        void __fastcall ActualizaLabel();
};
//---------------------------------------------------------------------------
#endif
Código:
#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"

#pragma package(smart_init)

__fastcall ThPrueba::ThPrueba(TForm3 *form, bool CreateSuspended)
        : TThread(CreateSuspended)
{
  Form = form;
}

void __fastcall ThPrueba::ActualizaLabel()
{
  Form->Label1->Caption = LS;
}


//---------------------------------------------------------------------------
void __fastcall ThPrueba::Execute()
{
   int n=0;
   while(!Terminated){
     LS = n++;
     Synchronize(ActualizaLabel);
     Sleep(500);
   }
}

Saludos.

Última edición por escafandra fecha: 09-03-2020 a las 08:00:24.
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
Acceder a componentes de otro form alexisenp OOP 7 12-12-2011 01:53:32
me ayudan a programar un form desde cero para ventas usando TjvMemorydata??? userdelphi Varios 9 13-01-2011 03:49:50
Problemas para acceder a frames Pedro-Juan OOP 1 22-08-2006 23:42:29
Acceder a form modal desde módulo de datos jcheco Varios 3 31-01-2006 17:18:22


La franja horaria es GMT +2. Ahora son las 17:31:00.


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