Try-finally und modalresult

[mm1256]

Zitat von Sir Rufo:

Was man im OnCreate erzeugt und über die Lifetime der Form-Instanz benötigt, sollte man tunlichst im OnDestroy aufräumen.

Das leuchtet mir ein. Kann es zukünftig so machen.

Zitat von Sir Rufo:

Alle anderen Zeitpunkte/Events funktionieren nur unter bestimmten Bedingungen.

Warum (unter welchen Bedingungen) würde denn "OnClose" nicht aufgerufen werden? Es geht hier ja um "modalresult" also modale Fenster. Hierzu verwende ich i.d.R. sowas:

Delphi-Quellcode:

unit Foo

interface

function Foo_ShowModal: integer;

implementation

function Foo_ShowModal: integer;
begin
  with TFoo.Create(Application) do
  try
    Result := ShowModal;
  finally
    Release;
  end;
end;