Должен ли я не показывать форму или сообщение из потока?

Question

Я всегда показывал такие вещи в основном потоке и использовал события, чтобы синхронизировать конец окна с потоком, чтобы сообщить ему, когда окна закрыты.

Сегодня во время разработки я хотел переместить отображаемую форму из потока в основной пользовательский интерфейс, но он был успешно отображен. Единственное, что я добавил, что в основном потоке Я толкаю ожидания сообщений о событии:

procedure WaitWithMessageLoop(); 
var 
vWaitForEventHandles:array[0..1] of THandle; 
vWaitForResponse:DWORD; 
Msg: TMSG; 
begin 
vWaitForEventHandles[0] := LServiceMonitor.Handle; 
while (1=1) do 
begin 
    vWaitForResponse := MsgWaitForMultipleObjects(1, vWaitForEventHandles, FALSE, INFINITE, QS_ALLINPUT); 
    if (vWaitForResponse = WAIT_OBJECT_0 + 1) then 
    begin 
    while (PeekMessage(msg,0,0,0,PM_REMOVE)) do 
    begin 
     TranslateMessage(msg); 
     DispatchMessage(msg); 
    end; 
    end 
    else 
    if (vWaitForResponse = WAIT_FAILED) 
    then RaiseLastOSError 
    else break; 
end; 
end; 

Так что мой вопрос. Является ли такой scenerio приемлемым? Или мне нужно переместить форму для отображения в основном потоке?

Благодаря

Answer 1

Вы не можете надежно запускать VCL формы вне основного графического интерфейса резьбы. Когда вы пытаетесь это сделать, это может показаться сработавшим, но в какой-то момент в будущем такой код не удастся. Скорее всего, на вашей самой важной машине клиентов, особенно критично!

VCL был разработан таким образом, что все формы VCL создаются и управляются только из основного потока графического интерфейса пользователя. Если вам нужно вызывать формы VCL, вам необходимо использовать такие инструменты, как TThread.Synchronize, чтобы убедиться, что формы созданы в потоке графического интерфейса.