Ver Mensaje Individual
  #3  
Antiguo 16-10-2007
Avatar de walito
walito walito is offline
Miembro
 
Registrado: jun 2005
Posts: 121
Reputación: 19
walito Va por buen camino
Sabes que lo probe agregando un boton y despues que carga el Form, le hago click al boton y tampoco anda!!

Queraro que puede ser?

Mira esto es todo el codigo del thread.

Código Delphi [-]
unit ClassHiloBarcaza;

interface

uses
  Classes;

type
  THiloBarcaza = class(TThread)
  protected
    procedure Execute; override;
  public
    constructor Create;
    destructor Destroy; override;
  end;


implementation

constructor THiloBarcaza.Create;
begin
    Inherited Create(false);

    FreeOnTerminate := true;
end;

destructor THiloBarcaza.Destroy;
begin
  inherited Destroy;
end;

procedure THiloBarcaza.Execute;
begin
end;

end.

Y lo unico que hago es llamarlo asi:

Código Delphi [-]
procedure TForm2.JvXPButton1Click(Sender: TObject);
var
  Hilo: THiloBarcaza;
begin
    Hilo.Create;
end;

Saludos

Última edición por walito fecha: 16-10-2007 a las 20:11:53.
Responder Con Cita