Du könntest in der
Unit eine Status-Variable anlegen, deren Wert du selber änderst, etwa so:
Delphi-Quellcode:
var
PBFShowing : bool = false;
Delphi-Quellcode:
if (PBFShowing = False) then
begin
PBFShowing := true;
ProgressBar_Form := TProgressBar_Form.Create(nil);
try
ProgressBar_Form.ShowModal;
finally
ProgressBar_Form.Free;
PBFShowing := false;
end;
end;