Du musst alle Zugriffe entsprechend absichern. Beispiel:
Delphi-Quellcode:
// Hauptthread:
TFormA = class(TForm)
private
FValue: string;
...
end;
procedure TFormA.Example;
begin
TMonitor.Enter(Self);
try
FValue := 'Test';
finally
TMonitor.Exit(Self);
end;
end;
// vom Thread aufgerufen:
function TFormA.ThreadCallback: string;
begin
TMonitor.Enter(Self);
try
Result := FValue;
finally
TMonitor.Exit(Self);
end;
end;