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