jmlifi
20-03-2007, 10:45:17
no llega a ejecutarse esta parte del codigo:
procedure TThread5.Execute;
begin
repeat
Sleep(20000);
Synchronize(RecepAutoVeriTubo);
until terminated;
end;
la otra parte del código:
TThread5 = class (TThread)
private
OwnerHandle: HWND;
procedure RecepAutoVeriTubo;
protected
procedure Execute; override;
published
constructor Create(Owner: TForm);
destructor Destroy; override;
end;
.....
.....
Constructor TThread5.Create(Owner: TForm);
begin
inherited Create(True);
OwnerHandle := Owner.Handle;
Priority := tpNormal;
FreeOnTerminate := true;
suspended := false;
end;
¿ a qué se debe ?
procedure TThread5.Execute;
begin
repeat
Sleep(20000);
Synchronize(RecepAutoVeriTubo);
until terminated;
end;
la otra parte del código:
TThread5 = class (TThread)
private
OwnerHandle: HWND;
procedure RecepAutoVeriTubo;
protected
procedure Execute; override;
published
constructor Create(Owner: TForm);
destructor Destroy; override;
end;
.....
.....
Constructor TThread5.Create(Owner: TForm);
begin
inherited Create(True);
OwnerHandle := Owner.Handle;
Priority := tpNormal;
FreeOnTerminate := true;
suspended := false;
end;
¿ a qué se debe ?