WindowFreeze VCL

Question

저는 약 10 개의 창을 가진 Delphi7 프로젝트를 가지고 있습니다. MainWindow는 프로그램 시작시로드됩니다. 잠시 후 MainWindow는 프로젝트의 다른 창에 액세스하여 목록보기 항목을 추가하고 1-2 초 정도 업데이트합니다. 그러나이 창은 동결 된 것처럼 보이고 열어 본 후에 목록보기를 전혀 표시하지 않습니다.

SecondWindow.Show; 
SecondWindow.Close; 

그것은 문제없이 작동하지만, 전문가가 아닌 것 같다 : 내 MainWindow를 다음 명령의에서 onShow 절차가있는 경우

그것은 작동합니다. 나는 아이디어를 얻지 않고 어떻게 창을 그릴 수 있습니까?

편집 : CODE (나는 Indy9을 사용)

procedure TMainWindow.ServerSocketExecute(AThread: TIdPeerThread); 
begin 
/.... 
if Buffer = 'additem' then begin 
    Window2.ListView1.Items.Add; 
    Exit; 
    // ..... 
end; 
end; 

을합니다. 나는 Window2에서 모든 타이머를 제거했으며 여전히 정지 된 것 같습니다. 항목이 추가되거나 처음으로 두 번째 Windows를 열려고 할 때 주 윈도우가 순간적으로 멈 춥니 다.

Answer 1

문제는 메인 GUI 스레드 외부에서, 즉 TMainWindow.ServerSocketExecute에서 VCL 메서드를 호출하고 있다는 것입니다. 이 이벤트는 작업자 스레드에서 실행됩니다. 작업자 스레드에서 VCL/GUI 코드를 호출하는 것은 단순히 게임 규칙에 위배됩니다. 모든 VCL 코드 은 기본 GUI 스레드에서을 실행해야합니다.

그래서 모든 VCL/GUI 코드가 GUI 스레드에서 실행되도록하여 문제를 해결하십시오. 이 작업을 수행하려면 TIdPeerThread.Synchronize() 메서드 또는 TIdSync 또는 TIdNotify 클래스를 사용하십시오.

_{내가 알지 못하는 세부 정보를 제공 한 덕분에 @ 감사합니다.}