Try-finally und modalresult

[himitsu]

OnCreate -> OnDestroy
OnShow -> OnClose

Delphi-Quellcode:

F := TMyForm.Create(x);
try

  F.Show;
  F.Close;
  F.Show;  // peng
  ... 

  F.ShowModal;
  F.ShowModal;  // peng
  ...

finally
  F.Free;
end;

[DeddyH]

On -> Off (SCNR^^)

[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;

[DeddyH]

Die Standardaktion im OnClose ist nicht freigeben (caFree), sondern verstecken (caHide). Das bedeutet, dass das Fenster auch nach einem Close weiterlebt, nur eben nicht sichtbar. Wenn man da also etwas freigibt, was man im OnCreate erzeugt hat, fängt man sich einen wilden Zeiger ein, was bei künftigen Zugriffen darauf dann in einer AV endet.

[BUG]

Zitat von mm1256:

Es geht hier ja um "modalresult" also modale Fenster.

Es kann ja sein, dass man das Formular nicht erzeugt und gleich wieder zerstört, sondern nur eine Instanz hat und diese wiederverwendet. Ein Beispiel wäre ein Formular als Singleton.

[Namenloser]

Finally wird immer ausgeführt. Sogar das hier funktioniert:

Delphi-Quellcode:

try
  exit;
finally
  ShowMessage('Foobar');
end;