Einzelnen Beitrag anzeigen

TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.058 Beiträge
 
Delphi 10.4 Sydney
 
#52

AW: Bitmap.Canvas -> Form.Canvas ... nix zu sehen

  Alt 19. Jul 2018, 10:41
Möglich wäre auch die Verwendung von TThread.Queue(nil...)

Delphi-Quellcode:
procedure TSourceThread.DoSendData;
begin
  FOwner.lbl_CountSource.Caption := IntToStr(FCounter);
  if Assigned(FSendData) then
    FSendData(FCounter);
end;

procedure TSourceThread.Execute;
begin
  inherited;
  while not Terminated do
  begin
    if (WaitForSingleObject(FEvent, INFINITE) = WAIT_OBJECT_0) and not Terminated then
    begin
      TThread.Queue(nil, DoSendData);
      Sleep(50 + Random(200));
      Inc(FCounter);
    end;
  end;
end;
  Mit Zitat antworten Zitat