procedure JobVCL;
begin
  TThread.Synchronize(nil, procedure
 begin
   // тут код работы с VCL
 end);
end;


TThread.CreateAnonymousThread(procedure
begin

 ...

 JobVCL;

... 

end).Start;

procedure JobVCL;
begin
   // тут код работы с VCL
end;


TThread.CreateAnonymousThread(procedure
begin

 ...
  TThread.Synchronize(JobVCL);

... 

end).Start;

Posted via ActualForum NNTP Server 1.5

procedure TCalcThread.Execute;
begin
  ......
  SetEvent(NotifyEvent);
  ....
end;

procedure TNotifyThread.Execute;
begin
  while not Terminated do begin
    WaitForSingleObject(NotifyEvent);
    Synchronize(UpdateVCL)
  end;
end;

procedure TCalcThread.Execute;
begin
  ......
  PostMessage(MainForm.Handle, WM_MY_NOTIFY, 0, 0);
  ....
end;

procedure TMainForm.WMMyNotify(var AMsg: TMessage);
begin
  UpdateVCL;
  ClearMsgQueue(Handle, WM_MY_NOTIFY);
end;

function ClearMsgQueue(AWnd: HWND; AMsg: Cardinal): TMsg;
var
  LMsg: TMsg;
begin
  Result.message := 0;
  while PeekMessage(LMsg, AWnd, AMsg, AMsg, PM_NOREMOVE) and
        (LMsg.message <> WM_QUIT)
  do begin
    PeekMessage(LMsg, AWnd, AMsg, AMsg, PM_REMOVE);
    Result := LMsg;
  end;
end;

Posted via ActualForum NNTP Server 1.5

Posted via ActualForum NNTP Server 1.5