будет запущено по количеству кликов. Как запретить запуск до завершения ? Delphi11
Как-то так: procedure TMainForm.RunButtonClick(Sender: TObject); begin RunButton.Enabled := False; FTask := TTask.Create(procedure begin try // ... Sleep(10000); // ... finally TThread.Synchronize(TThread.Current, procedure begin AbortButton.Enabled := False; RunButton.Enabled := True; end ); end; end); FindTask.Start; AbortButton.Enabled := True; end;
Ага, и всё это ещё через TThread.CreateAnonymousThread() )))))))))))
да бл*** как то кастыльно
Обсуждают сегодня