Ver Mensaje Individual
  #6  
Antiguo 07-03-2014
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.197
Reputación: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Cambia
#include "HiloDBG.cpp" por #include "HiloDBG.h"

Añade el archivo HiloDBG.cpp desde Peoyect -> Add to proyect -> HiloDBG.cpp

Código:
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "HiloDBG.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormPrincipal *FormPrincipal;
HDebugger *HiloDebugger;
//---------------------------------------------------------------------------
__fastcall TFormPrincipal::TFormPrincipal(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TFormPrincipal::Button1Click(TObject *Sender)
{
   HiloDebugger = new HDebugger(false);
}
Código:
#include <vcl.h>
#pragma hdrstop

#include "HiloDBG.h"
#include "Unit1.h"
#pragma package(smart_init)

__fastcall HDebugger::HDebugger(bool CreateSuspended)
        : TThread(CreateSuspended)
{
}

void __fastcall HDebugger::Execute()
{
  Synchronize(ActualizarDatos);
}

void __fastcall HDebugger::ActualizarDatos(void)
{
   FormPrincipal->Caption = "Actualizado desde el hilo";
}
Subo el proyecto.

Saludos.

Última edición por escafandra fecha: 24-03-2018 a las 13:09:37.
Responder Con Cita