Hallo,
spendiere doch deiner Main Form für alle diese Fortschrittsanzeigen und Ausgabebedarfe entsprechende Methoden,
welche die
GUI controls aktualisieren. Diese Methoden bekommen die auszugebenden Daten als Parameter übergeben.
Dann erstelle eine neue
Unit und erstelle ein Interface, welches genau diese Methodendeklarationen enthält.
Das Hauptformular nutzt diese
Unit im interface uses block und in class(TForm) wird das Interface ergänzt:
class(TForm, IMainFormInterface).
Die Geschäftslogikklasse bekommt mittels Constructor dieses Interface übergeben und speichert sich das lokal ab:
constructor TBusinessLogic.Create(MainFormInterface: IMainFormInterface);
begin
inherited Create;
FMainFormInterface := MainFormInterface;
end;
Überall wo die geschäftslogik etwas auf dem
GUI ausgeben muss, ruft sie die entsprechende Methode über das Interface auf:
FMainFormInterface .DisplayProgress(50); // 50% Fortschritt...
Dadurch hängt die Geschäftslogik nur noch von dem Interface ab und nicht mehr vom
GUI und damit nicht mehr von internen
Änderungen des
GUI.