다른 분들이 답변을 잘 해주셔서 덧붙일 것은 없고요.
저를 지명해주신 것은 영광이나,
지명해서 질문을 받는 것은 상당히 부담스럽습니다.
개인적으로 커뮤니티를 운영할 때도
지명당한 질문에는 답변을 안남기는 원칙을 가지고 있었습니다.
델파이가 귀찮고 복잡한 것을 신경 안쓰고도
프로그래밍을 할 수 있는 것이 큰 장점인데,
이런 경우에는 그 장점 덕에 당연한 것인데도
잘 모르고 넘아가게 되는 단점이 있는 것 같습니다.
아래는 메인 스레드에서 별도의 스레드를 생성하여 코드를 실행하고
결과는 메인스레드에서 처리하고 싶을 때 사용하려고 만든 유닛입니다.
혹시 도움이 될까하여 링크 남깁니다.
https://ryulib.tistory.com/446
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Enabled := false;
AsyncTask(
// 스레드에서 실행되는 코드
procedure (AUserData:pointer) begin
OutputDebugString('## Test ##');
sleep(5000);
end,
// 스레드 실행 종료되면 메인 스레드에서 실행되는 코드
procedure (AUserData:pointer) begin
Button1.Enabled := true;
end
);
end;
2019-12-26 오후 7:39:12
류종택