Self welche Unit ?

[Christian Seehase]

Moin Homer,

warum nicht so?

Delphi-Quellcode:

if ProgressBar_Form = nil then begin 
  // Wird gleich wieder freigegeben, dann kann der Owner nil sein.
  ProgressBar_Form := TProgressBar_Form.Create(nil);
  try 
    ProgressBar_Form.ShowModal; 
  finally 
    FreeAndNil(ProgressBar_Form);
  end; 
end;

Wobei Du Dir eigentlich auch die Abfrage auf nil sparen kannst, da Du das Formular Modal anzeigen lässt, und es danach garantiert wieder freigibst, womit sichergestellt ist, dass es beim nächsten Aufruf der Routine nicht existiert.