Nochmal: Ermiteln ob Objekt freigegeben wurde

[MaBuSE]

Hallo,
ich muß das Thema noch mal aufnehmen, da ich noch keine befriedigende Antwort / Lösung gefunden habe.

Folgendes Problem:

Ich habe ein von TForm abgeleitetes Objekt.
Dieses Objekt wird erzeugt und dargestellt.
Der Benutzer kann das Objekt schliessen und es soll dann auch Freigegeben werden.
Es gibt eine Funktion um das Form anzuzeigen und falls nicht vorhanden neu zu erzeugen.

Beispielcode:

Delphi-Quellcode:

// Unit1.pas
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Assigned(Form2) then
  begin
    Form2 := TForm2.Create(self);
    Memo1.Lines.Add(DateTimeToStr(now)+' Create');
  end
  else Memo1.Lines.Add(DateTimeToStr(now)+' schon da');

  Form2.Caption := 'Test';
  Form2.Show;
end;
...

// unit2.pas
...
type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
...
procedure TForm2.Button1Click(Sender: TObject);
begin
  Close;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  // hier werden noch viele weitere Dinge freigegeben
  Action := caFree;
end;
...

Mein Problem ist nun folgendes:

• Wie kann ich das Formular auf nil setzen, damit Assignes klappt?
• oder wie kann ich zuverlässig erkennen, ob das Form existiert? (Das Form kann auch unsichtbar sein)

Innerhalb der Form kann (darf) ich ja folgende Dinge nicht machen:

Delphi-Quellcode:

...
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FreeAndNil(Self);
  // oder
  Free;
  Self := nil;
end;
...

Hat jemand eine Idee?

Folgende Beiträge habe ich auch schon gelesen, aber keine akzeptable Antwort erhalten:
http://www.delphipraxis.net/internal...ct.php?t=17825
http://www.delphipraxis.net/internal...ct.php?t=15099

Danke für Eure Hilfe

[Bernhard Geyer]

Evtl das Singleton-Pattern anwenden?

[dataspider]

Du musst die Methode Notification überschreiben. Da wirst du über das Freigeben des Formulares informiert:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    FForm2: TForm;
    { Private-Deklarationen }
  protected
    procedure Notification(AComponent : TComponent; Operation : TOperation);
        override;
  public
    constructor Create(AOwner: TComponent); override;
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

constructor TForm1.Create(AOwner: TComponent);
begin
  inherited;
  FForm2 := nil;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Form erzeugen, wenn nicht vorhanden
  if not Assigned(FForm2) then
  begin
    FForm2 := TForm2.Create(Self);
    // FForm2.FreeNotification(Self);
    FForm2.Show;
  end;
end;

procedure TForm1.Notification(AComponent : TComponent; Operation : TOperation);
begin
  inherited Notification( AComponent, Operation);
  if Assigned(FForm2) then
    if (Operation = opRemove) and (AComponent = FForm2) then
      FForm2 := nil;
end;

end.

Gruß, Frank

[Union]

Im FormClose der Objekte solltest Du folgendes machen:

Delphi-Quellcode:

Procedure MyForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Action := caFree;
end;

Dann genügt es, später die globale Variable auf nil abzufragen:

Delphi-Quellcode:

if frmMyForm = nil then
   frmMyForm := TMyForm.Create(Application);
frmMyForm.Show;

[tomsel]

oder ganz einfach so:

Delphi-Quellcode:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  // hier werden noch viele weitere Dinge freigegeben
  Action := caFree;
  Form2 := nil;
end;

Falls Form2 modal dargestellt wird, besser nach Schema
Create
Showmodal
Free
vorgehen

[MarcoWarm]

Eine Idee, wie es auf alle Fälle immer klappt, ist, einfach die Caption (z.B.) des Formulars zu ermitteln ... und das in einem try except block. Falls es schief geht, gibt es kein Objekt mehr. Falls es funktioniert ist dein Objekt noch da.

ist aber, zugegeben, nicht sehr elegeant.... aber funzt

[MaBuSE]

Zitat:

Zitat von tomsel

oder ganz einfach so:

Delphi-Quellcode:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  // hier werden noch viele weitere Dinge freigegeben
  Action := caFree;
  Form2 := nil;
end;

Funktioniert nicht.
Bekomme dann bei manchen Aktionen allgemeine Schutzverletzungen. :-(

Form ist nicht Modal.

[MaBuSE]

Zitat:

Zitat von Union

Im FormClose der Objekte solltest Du folgendes machen:

Delphi-Quellcode:

Procedure MyForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Action := caFree;
end;

Dann genügt es, später die globale Variable auf nil abzufragen:

Delphi-Quellcode:

if frmMyForm = nil then
   frmMyForm := TMyForm.Create(Application);
frmMyForm.Show;

Das bringt nichts.
Das hatte ich ja auch schon im 1. Beitrag geschrieben.

• In TCustomForm.Close wird falls Assigned das Ereignis onClose aufgerufen.
• In OnClose wird die CloseAction auf caFree gesetzt.
• Es wird dann im else Zweig der If Abfrage das Release aufgerufen.
• Release schickt eine Nachicht CM_RELEASE an das Form
• Die Methode CMRelease wird dadurch aufgerufen.
• in CMRelease wird ein Free aufgerufen.
• Das Ergebnis ist ein freigegebenes Formular
  Leider ist das aber nicht nil
  Ein "if frmMyForm = nil then" bringt genauso wie ein "if not assigned(frmMyForm) then" False und ich kann nicht erkennen ob dort ein existierendes Formular existiert.

Die isObject Funktion von choose ( http://www.delphipraxis.net/internal...=460126#460126 ), die in Zusammenarbeit mit negaH entstand bringt eine Exception.

Hier ein Auszug des Quelltextes der TCustomForm zum Nachvollziehen:

Delphi-Quellcode:

{*******************************************************}
{       Borland Delphi Visual Component Library         }
{  Copyright (c) 1995-2002 Borland Software Corporation }
{*******************************************************}
unit Forms;
...
type
  TCustomForm = class(TScrollingWinControl)
  private
...
    procedure CMRelease(var Message: TMessage); message CM_RELEASE;
...
  protected
...
    procedure DoClose(var Action: TCloseAction); dynamic;
...
  public
...
    procedure Close;
...
    procedure Release;
...
  end;
...
procedure TCustomForm.CMRelease;
begin
  Free;
end;
...
procedure TCustomForm.DoClose(var Action: TCloseAction);
begin
  if Assigned(FOnClose) then FOnClose(Self, Action);
end;
...
procedure TCustomForm.Close;
begin
...
      DoClose(CloseAction);
      if CloseAction <> caNone then
        if Application.MainForm = Self then Application.Terminate
        else if CloseAction = caHide then Hide
        else if CloseAction = caMinimize then WindowState := wsMinimized
        else Release;
...
end;
...
procedure TCustomForm.Release;
begin
  PostMessage(Handle, CM_RELEASE, 0, 0);
end;
...

[edit] Hatte Hagen statt negaH geschrieben[/edit]

[dataspider]

Hi MaBuSE,
was stört dich daran, die Methode Notification zu verwenden.
Die ist dafür da und wird vor allem in der Komponentenentwicklung für solche Fälle benutzt.
Cu, Frank

[MaBuSE]

Zitat:

Zitat von dataspider

was stört dich daran, die Methode Notification zu verwenden.
Die ist dafür da und wird vor allem in der Komponentenentwicklung für solche Fälle benutzt.

Nichts ;-)
Ich bin gerade am ausprobieren und debuggen.
Ich wollte erst was dazu schreiben, wenn ich mir das angeschaut habe :stupid:
Aber Danke schon mal für die Antwort :thumb: