열려있는 넌 모달 형식에서 스레드가 실행되지 않음

Question

아래는 '진행'형식 코드의 일부입니다.
(코드에서 제거 된) ProgressBars 외에도 캡션 (점의 수가 증가)을 변경하려는 TLabel (LblDots)이 있습니다.
FormShow/FormClose에서 TDotterThread가 만들어지고 소멸됩니다.

문제 :
나는 프로그램이 무거운 일을하지 않을 경우에만 호출되는 라벨을 업데이트하는 동기화 (DoUpdate) 절차를 참조하십시오. 내가 잘못 뭐하는 거지

procedure TFrmTest.FormCreate(Sender: TObject); 
begin 
    FFormBusy := TFormBusy.Create(nil); 
end; 

procedure TFrmTest.FormDestroy(Sender: TObject); 
begin 
    FFormBusy.Free; 
end; 

procedure TFrmTest.BtnCompareClick(Sender: TObject); 
begin 
    FrmTest.FFormBusy.ShowDots := true; 
    FrmTest.FFormBusy.Show; 
    FrmTest.FFormBusy.Update label/progress bar 
    DoHeavyWork1(); 
    FrmTest.FFormBusy.Update label/progress bar 
    DoHeavyWork2(); 
    etc. 
end;  

:

unit FrmBusy; 

interface 

uses 
    System.SyncObjs, Windows, Messages, SysUtils, System.Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; 

type 
    TUpdateEvent = procedure of object; // 'of object' to prevent 'Incompatible types: regular procedure and method pointer' 

type 
    TDotterThread = class(TThread)   // Thread to update LblDots 
    private 
     FTick: TEvent; 
     FUpdater: TUpdateEvent; 
    protected 
     procedure Execute; override; 
     procedure DoUpdate; 
    public 
     constructor Create; 
     destructor Destroy; override; 
     property Updater: TUpdateEvent read FUpdater write FUpdater; 
     procedure Stop; 
    end; 

type 
    TFormBusy = class(TForm) 
    LblDots: TLabel; 
    procedure FormShow(Sender: TObject); 
    procedure FormClose(Sender: TObject; var Action: TCloseAction); 
    private 
    FShowDots: Boolean; 
    FDotterThread: TDotterThread; 
    procedure UpdateDots; 
    public 
    property ShowDots: Boolean write FShowDots; 
    end; 

implementation 

{$R *.DFM} 

procedure TFormBusy.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
    if FShowDots then FDotterThread.Stop; // Calls Terminate and is FreeOnTerminate 
end; 

procedure TFormBezig.UpdateDots; 
var s: String; 
begin 
    s := LblDots.Caption; 
    if Length(s) = 50 then s := '' else s := s + '.'; 
    LblDots.Caption := s; 
    Application.ProcessMessages; 
end; 

procedure TFormBusy.FormShow(Sender: TObject); 
begin 
    LblDots.Caption := ''; 
    if FShowDots then 
    begin 
     FDotterThread := TDotterThread.Create; 
     FDotterThread.Updater := Self.UpdateDots; 
     FDotterThread.Start; 
    end; 
    BringWindowToTop(Self.Handle); 
end; 

{ TDotterThread } 

constructor TDotterThread.Create; 
begin 
    FTick := TEvent.Create(nil, True, False, ''); 
    FreeOnTerminate := true; 
    inherited Create(true); // Suspended 
end; 

destructor TDotterThread.Destroy; 
begin 
    FTick.Free; 
    inherited; 
end; 

procedure TDotterThread.DoUpdate; 
begin 
    if Assigned(FUpdater) then FUpdater; 
end; 

procedure TDotterThread.Execute; 
begin 
    while not Terminated do 
    begin 
    FTick.WaitFor(1000); 
    Synchronize(DoUpdate); 
    end; 
end; 

procedure TDotterThread.Stop; 
begin 
    Terminate; 
    FTick.SetEvent; 
end; 

end. 

양식은 전화를 같이 작성됩니다

이 진행 형태이다?
TIA

Answer 1

아시다시피 모든 UI 코드는 기본 GUI 스레드에서 실행되어야합니다. 그래서 GUI를 업데이트하려면 Synchronize으로 전화하십시오. 동기화는 다음과 같이 광범위하게 작동합니다.

1. 주 스레드에서 수행 할 작업이 대기열에 배치됩니다.
2. 주 스레드는 동기화 작업이 보류 중임을 나타냅니다.
3. 배경 스레드 차단.
4. 메인 스레드가 보류중인 동기화 작업이 있는지 확인한 다음 실행합니다.
5. 백그라운드 스레드는 작업이 실행되었음을 나타 내기 위해 신호를 보냅니다.
6. 백그라운드 스레드가 차단을 멈추고 실행을 계속합니다.

상당히 복잡한 댄스입니다.

문제는 주 스레드가 일부 장기 실행 작업을 수행하는 중입니다. 아마도 DoHeavyWork1과 DoHeavyWork2으로 전화를 걸었을 것입니다. 이것은 GUI 스레드가 적시에 항목 4를 수행하지 않는다는 것을 의미합니다. 또한 메인 스레드는 백그라운드 스레드를 차단하고 스레드의 유틸리티를 무효화합니다.

기본적으로 문제는 기본 GUI 스레드가 GUI 서비스 이외의 작업을 수행하고 있다는 것입니다. GUI 서비스를 위해 GUI 스레드를 전용해야합니다. 그것은 다른 것을 취해야하며, 장기간에 걸친 작업을 수행하지 않아야합니다. 일단 GUI가 아닌 모든 작업을 GUI 스레드에서 백그라운드 스레드로 보내면 응용 프로그램이 응답 속도가 빠른 것을 알 수 있습니다.

마지막으로 Application.ProcessMessages의 전화 번호를 UpdateDots에서 삭제하는 것이 좋습니다. 응답하지 않는 GUI를 다루려고 아마 추가했을 것입니다. 그러나 문제는 UpdateDots이 적시에 실행되지 않기 때문에 전혀 도움이되지 않습니다.