Вопрос про синхронизацию в потоке

[FleXik]

Вобщем есть две кнопки, кнопки Старт и Стоп и процедура thread.Execute. У меня все работает, но вопрос только в том правильно ли я все делаю и можно ли так делать, хочу что бы все корректно работало поэтому решил спросить у профи.

Для кнопки Старт пишу такой код, перед запуском потока нужно выключать кнопку Старт и включать кнопку Стоп, поэтому код для кнопки Старт у меня выглядит так:

Form1.Button1.Enabled:=False;
Form1.Button2.Enabled:=True;
// запуск потока

Для кнопки Стоп пишу такой код, останавливаем поток и включаем кнопку Старт и выключаем кнопку Стоп:

// остановка потока
Form1.Button2.Enabled:=False;
Form1.Button1.Enabled:=True;

дальше выполняется основной код прописанный в процедуре thread.Execute, так вот у меня есть цикл который после того как дойдет до указанного "лимита" должен оповещать что работа завершена и включать кнопку Старт и выключать кнопку Стоп, пример:

procedure thread.Execute;
// основной код
Form1.Button2.Enabled:=False;
Form1.Button1.Enabled:=True;

так вот вопрос, можно ли в thread.Execute включать и выключать кнопки Старт и Стоп? причем если в событии самой кнопки не выключать кнопки Старт и Стоп то программа зависает и до тех пор пока в thread.Execute не пропишу включение и выключение кнопок, программа не работает корректно и зависает, как только пропишу то все ок, и обязательно ли в thread.Execute синхронизировать кнопки Старт и Стоп или нет?

[avd]

можно ли в thread.Execute включать и выключать кнопки Старт и Стоп?

Methods and properties of objects in visual components can only be used in a method called using Synchronize". Т. е. обращение к визуальным компонентам возможно только путём вызова процедуры Synchronize.

procedure TThrd.Execute;
begin
  Synchronize(EnableButton);
end;

procedure TThrd.EnableButton;
begin
  Form1.Button1.Enabled:=True;
end;

Примерно как-то так.

[Аватар]

Зачем вообще в потоке управлять доступностью кнопок?

[FleXik]

Сообщение от Аватар

Зачем вообще в потоке управлять доступностью кнопок?

в потоке это в процедуре Execute? по другому не работает.

avd, как синхронизировать я знаю, спасибо, вопрос был в другом.

Аватар, жесть :D действительно в Execute не нужно было прописывать т.к я прописал выключение кнопок в кнопке Старт и Стоп

[Shouldercannon]

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Button1.Tag = 0 then
  begin
    Button1.Tag := 1;
    Button1.Caption := 'Стоп';

    Thread := TThread.Create(True);
    Thread.FreeOnTermonate := True;
    Thread.Resume;
  end
  else
  begin
    Button1.Tag := 0;
    Button1.Caption := 'Старт';

    Thread.Terminate;
  end;
end;

С одной кнопкой