169 похожих чатов

Если aTask := TTask.Create поставить на кнопку то процедура внутри

будет запущено по количеству кликов. Как запретить запуск до завершения ? Delphi11

3 ответов

11 просмотров

Как-то так: 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;

Алексей Труфманов
Как-то так: procedure TMainForm.RunButtonClick(Se...

Ага, и всё это ещё через TThread.CreateAnonymousThread() )))))))))))

Deni-Denis Автор вопроса

Похожие вопросы

Обсуждают сегодня

Скажите, можно ли как-то "переместить" динамический массив из одной переменной в другую? Скажем, переместить из TList<> в TArray<>. Именно переместить, а не скопировать. Если ...
Eugene Krasnikov (ᴊɪɴ x)
37
комрады, че-та лыжы не едут var tmpFont: TFont; begin tmpFont:= TFont.Create; try case rgFontColor.ItemIndex of 0: tmpFont.Color:= clWindowText; 1: tmpFo...
Ed Doc
34
.model small .stack 100h .data a db 'Hello, World!', '$' ; исходная строка b db 20 dup(?) ; строка b с запасом на максимальную длину .code main: ...
Алексей -man
3
М-да. Почему бы просто со stringlist не работать?
Michael Longneck
23
Редактор листа Excel, по сути двумерный массив ячеек. Ячейка - это экземпляр класса, у нее всякие свойства, методы. Проблема в том, что количество используемых строк и колоно...
Sergey Bodrov
2
Интересно, нет ли какого-то способа получить из dll не адрес самой метки, а адрес со смещением?
The Bird of Hermes
54
Is there a digital way to cut the electricity from a usb in linux? It sounds weird, but it's exactly what I need to do. I tried to simulate the unplug/replug but is not the ...
Eduard Rivas
15
Добавляю 100 тыс слов в TListBox. Перемешаю скролл (от ListBox). После примерно 65536 скролл резко прыгает вверх. Это что за глюк? Как фиксить, кто-нибудь знает?
Eugene Krasnikov (ᴊɪɴ x)
8
generic procedure function test<T>(param: T); type case T of longint: NewT = word; longword: NewT = byte; end; var v1: NewT; Как это можно сделать? Чтобы у меня...
notme
21
Делал задачу вот такую https://stepik.org/lesson/4985/step/9?unit=1083 получилось такое https://play.haskell.org/saved/ipKrepqe оно работает, тестов много не писал, но работае...
Fedor
22
Карта сайта