(Formular-)Handling größerer Projekte

[bcvs]

Zitat von Delbor:

Zitat von bcvs:

Diese Diese Instanz gibt sich selbst frei, wenn im das Action im Onclose auf caFree steht.

Das stimmt so nicht. Der Parameter Action steuert lediglich, was geschehen soll. Wird ihm caFree zugewiesen, wird das Formular tatsächlich geschlossen
Nach wie vor: ein Formular, das sich selbst freigeben soll, muss mit Release geschlossen werden.

Doch, das stimmt. Hast du dein Beispiel mal ausprobiert? Das funktioniert einwandfrei, ohne AV.

Mit Action:= caFree wird das Formular geschlossen und der Speicher freigegeben, wie es auch in der von dir zitierten Hilfe steht. Dort steht allerdings nicht, wann und wie diese Freigabe geschieht. Ein Blick in den Quelltext von TCustomForm zeigt, dass dann nach dem Aufruf von OnClose einfach ein Release gemacht wird. Also sind wir uns wieder einig

[mm1256]

Chapeau! Bei modalen Fenstern

Delphi-Quellcode:

procedure TCustomForm.CloseModal;
var
  CloseAction: TCloseAction;
begin
  ...
    case CloseAction of
      caNone: ModalResult := 0;
      caFree: Release;
    end;
  ...
end;

Aber bei "normalen" Fenstern ???

Delphi-Quellcode:

procedure TCustomForm.DoClose(var Action: TCloseAction);
begin
  if Assigned(FOnClose) then FOnClose(Self, Action);
end;

EDIT:

Jetzt hab ich's kapiert, und darum werde ich es zukünftig so machen:

Delphi-Quellcode:

procedure TFrmClient1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caNone;  // In der CustomForm soll nichts passieren
  FrmClient1 := nil; // Meine Form-Variable ist jetzt ungültig
  Release;           // Ich gebe das Formular selber frei
end;

Wenn da mal jemand über meinen Code stolpern sollte, sieht man gleich, was passiert.

Vielen Dank für deine Hilfe und Geduld!

[BadenPower]

Zitat von mm1256:

Delphi-Quellcode:

procedure TFrmClient1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caNone;  // In der CustomForm soll nichts passieren
  FrmClient1 := nil; // Meine Form-Variable ist jetzt ungültig
  Release;           // Ich gebe das Formular selber frei
end;

Genau das gleiche passiert, wenn Du es nur so machst:

Delphi-Quellcode:

procedure TFrmClient1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;  
end;

Warum denn noch zwei Schritte machen, welche automatisch gemacht werden?

Hat auch den wichtigen Vorteil, dass dies dann auch bei jeder Instanz Deiner Form funktioniert und nicht nur wenn der Zeiger der Instanz auf die globale Variable "FrmClient1" zeigt.

[mm1256]

Die modalen Fenster sind ja abgehakt. Es geht ja um nicht modale Fenster. Das ist ja mein aktueller Ansatz (siehe Eröffnung des Thread) aber dann kannst du eben nicht mehr auf "Formvariable = nil" bei der Erstellung prüfen, und brauchst die Hilfsvariable.

Oder du erzeugst mit jedem Aufruf ein neues Formular, anstatt das bestehende anzuzeigen. Wenn du das willst, dann brauchst du ja gar keine Formularvariable:

Delphi-Quellcode:

  With TFrmClient1.Create(Application) do Show;

rocedure TFrmClient1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree; 
end;

[BadenPower]

Zitat von mm1256:

Oder du erzeugst mit jedem Aufruf ein neues Formular, anstatt das bestehende anzuzeigen. Wenn du das willst, dann brauchst du ja gar keine Formularvariable:

Dazu überprüfe ich das Anwendungsobjekt, ob bereits irgendeine Instanz des Fensters erzeugt wurde:

Delphi-Quellcode:

function ShowFormOnce(AFormClass: TComponentClass): TForm;
var
  liZ1: Integer;
begin
  Result := nil;
  for liZ1 := 0 to Application.ComponentCount-1 do
   begin
    if (Application.Components[liZ1] is AFormClass) then
     begin
      Result := TForm(Application.Components[liZ1]);
     end;
   end;

  if (Result = nil) then
   begin
    Result := TForm(AFormClass.Create(Application));
   end;

  Result.Show;

end;

wobei "AFormClass" die Klasse des entsprechenden Fensters ist.

Existiert eine Instanz, dann wird diese angezeigt anderenfalls wird eine Instanz erzeugt und danach angezeigt.

[mm1256]

Interessanter Ansatz. Werde ich mal nachverfolgen. Zu deinem Code-Beispiel...da fehlt natürlich noch eine Kleinigkeit:

Delphi-Quellcode:

function ShowFormOnce(AFormClass: TComponentClass): TForm;
var
  liZ1: Integer;
begin
  Result := nil;
  for liZ1 := 0 to Application.ComponentCount-1 do
   begin
    if (Application.Components[liZ1] is AFormClass) then
     begin
      Result := TForm(Application.Components[liZ1]);
     end;
   end;

  if (Result <> nil) then
   begin
    Result := TForm(AFormClass.Create(Application));
   end;
  if Assigned(Result) then // sonst knallts !!!!
  Result.Show;

end;

EDIT: Mal "nachverfolgt". Würde dann so aussehen:

Delphi-Quellcode:

{-Interface-procedure zum Anzeigen der Form-}
procedure FrmClient1_Show;
var
  i: Integer;
begin
  for i :=  0 to Pred(Application.ComponentCount)
  do if (Application.Components[i] is TFrmClient1) then
  begin
    TFrmClient1(Application.Components[i]).Show;
    Exit;
  end;
  with TFrmClient1.Create(Application) do Show;
end;

procedure TFrmClient1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

Einwände? - Verbesserungsvorschläge?

[BadenPower]

[QUOTE=mm1256;1293209]

Delphi-Quellcode:

  if (Result = nil) then
   begin
    Result := TForm(AFormClass.Create(Application));
   end;
  if Assigned(Result) then // sonst knallts !!!!
  Result.Show;

Wenn Du hier Angst hast, dass es knallt und deshalb die Assigned-Abfrage eingefügt hast, dann darfst Du das unten auch nicht so machen:

  with TFrmClient1.Create(Application) do Show; .
EDIT:
Da war ein Fehler in der Abfrage

[Delbor]

Hi zusammen

Zitat von bcvs:

Zitat von Delbor:

Zitat von bcvs:

Diese Diese Instanz gibt sich selbst frei, wenn im das Action im Onclose auf caFree steht.

Das stimmt so nicht. Der Parameter Action steuert lediglich, was geschehen soll. Wird ihm caFree zugewiesen, wird das Formular tatsächlich geschlossen
Nach wie vor: ein Formular, das sich selbst freigeben soll, muss mit Release geschlossen werden.

Doch, das stimmt. Hast du dein Beispiel mal ausprobiert? Das funktioniert einwandfrei, ohne AV.

Mit Action:= caFree wird das Formular geschlossen und der Speicher freigegeben, wie es auch in der von dir zitierten Hilfe steht. Dort steht allerdings nicht, wann und wie diese Freigabe geschieht. Ein Blick in den Quelltext von TCustomForm zeigt, dass dann nach dem Aufruf von OnClose einfach ein Release gemacht wird. Also sind wir uns wieder einig

Ich hab mir nun mal ein kleines Beispielprogramm geschrieben:

Delphi-Quellcode:

unit TestMainUnit;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Menus;

type
  TForm1 = class(TForm)
    btn1: TButton;
    MainMenu1: TMainMenu;
    Datei1: TMenuItem;
    Bearbeiten1: TMenuItem;
    procedure btn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
     Form1.Close;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     Action := caFree;
end;

end.

Tatsächlich funktioniert das. Und zwar deshalb, weil in TCustomForm.Close geprüft wird, ob die Form die Mainform ist und anschliessend Application.Terminate aufgerufen wird (DelphiXE4). Nach einigen elses wird auch Release aufgerufen. Beim Durchsteppen sprang meine 'ausgeführte Zeile' gleich nach dem Terminate auf end.
Das verblüfft mich doch ziemlich, da auf Delphi-Treff lange ein Tutorial zum schliessen eines Objektes (einer Form?) aus sich selbst heraus zu finden war.
Kann es sein, dass dieses Release erst in neueren Delphiversionen integriert wurde?

Gruss
Delbor

[bcvs]

Zitat von Delbor:

Kann es sein, dass dieses Release erst in neueren Delphiversionen integriert wurde?

Nein, das war schon immer so.