Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

8th
Окт

Выполнить действие после завершения потока

Posted by micher under Delphi

Как выполнить действие после завершения потока?

Баламут

Метод onTerminate. Собрано в Delphi2010. А потому могут быть проблемы с запуском потока в других версиях Delphi. Там вместо Start используйте Resume.



unit Unit1;
interface
uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, AdoConED, StdCtrls;
type TTest = class (TThread)

private

  L: TLabel;

  j: integer;

  procedure Execute; override;

  procedure UpdateLabel;

end;
type

  TForm1 = class(TForm)

    Button1: TButton;
    Label1: TLabel;

    procedure Button1Click(Sender: TObject);  private

    { Private declarations }

  public

    procedure TestTerminated(Sender: TObject);

    { Public declarations }

  end;
var

  Form1: TForm1;
implementation
{$R *.dfm}
{ TTest }
procedure TTest.UpdateLabel;

begin

  l.Caption := INtToStr(j);

end;
procedure TTest.Execute;

var

  i: integer;

begin

  for i :=  0 to 100 do

    begin

      j := i;

      Synchronize(UpdateLabel);

      Sleep(100);

    end;

end;
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);

var

  t: TTest;

begin

  t := TTest.Create(true);

  t.L := Label1;

  t.OnTerminate := TestTerminated;

  t.Start;

end;
procedure TForm1.TestTerminated(Sender: TObject);

begin

  ShowMessage('Работает');

end;
end.