Hizo un pequeño ejemplo con Thread y no estas funcionando. Estas dando el error:
Method Exceutar no found in base class
Mi Unit com mi class TContador(Thread) y otra Unit onde yo impiezo la thread.
Abajo la class que estas dando el error
Código Delphi
[-]unit Unit2;
interface
uses classes;
type
TContador = class(TThread)
protected
procedure Executar;override;
end;
implementation
uses Unit1;
procedure TContador.Executar;
var
contador: integer;
begin
priority := tpLower;
Form1.Progressbar1.Max := 1000000;
for contador := 1 to 1000000 do
form1.ProgressBar1.Position := contador;
inherited;
end;
end.
Mi llamada a classe TContador con el clic del button
Código Delphi
[-]procedure TForm1.BitBtn1Click(Sender: TObject);
var
ThreadContador: TContador;
begin
ThreadContador := TContador.Create(True);
ThreadContador.FreeOnTerminate(True);
ThreadContador.Resume;
end;